(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    476555,      11678]
NotebookOptionsPosition[    467812,      11397]
NotebookOutlinePosition[    468243,      11416]
CellTagsIndexPosition[    468200,      11413]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Functions", "Section",
 CellChangeTimes->{{3.5620244617783403`*^9, 3.562024466136615*^9}}],

Cell[BoxData[
 RowBox[{"<<", "HypothesisTesting`"}]], "Input",
 CellChangeTimes->{{3.562024494914418*^9, 3.562024495842272*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"TwoBenfordsLawProb", "[", "d_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"N", "[", 
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"k", "=", "1"}], "9"], 
      RowBox[{"Log", "[", 
       RowBox[{"10", ",", 
        RowBox[{"1", "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"10", "k"}], "+", "d"}], ")"}], 
          RowBox[{"-", "1"}]]}]}], "]"}]}], "]"}]}], "\[IndentingNewLine]", 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"twoBLProbs", "=", 
  RowBox[{"Map", "[", 
   RowBox[{"TwoBenfordsLawProb", ",", 
    RowBox[{"Range", "[", 
     RowBox[{"0", ",", "9"}], "]"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.562025136878389*^9, 3.562025137484926*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.11967926859688072`", ",", "0.11389010340755638`", ",", 
   "0.10882149900550823`", ",", "0.10432956023095939`", ",", 
   "0.10030820226757939`", ",", "0.09667723580232242`", ",", 
   "0.09337473578303612`", ",", "0.0903519892696033`", ",", 
   "0.08757005357886137`", ",", "0.08499735205769224`"}], "}"}]], "Output",
 CellChangeTimes->{3.5620251413055973`*^9, 3.562294233515236*^9, 
  3.5625164626813583`*^9, 3.562521034420219*^9, 3.562536918344611*^9, 
  3.562546941450667*^9, 3.562547415672523*^9, 3.562547579944735*^9, 
  3.562549659580676*^9, 3.5626968303303823`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"GetSignificantDigit", "[", 
    RowBox[{"num_", ",", "dig_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "digits", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"digits", "=", 
       RowBox[{"RealDigits", "[", "num", "]"}]}], ";", "\[IndentingNewLine]", 
      
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"digits", "[", 
          RowBox[{"[", "2", "]"}], "]"}], "\[NotEqual]", "  ", "1"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Return", "[", 
         RowBox[{"digits", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "dig"}], "]"}], "]"}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Return", "[", 
         RowBox[{"digits", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}]}], "]"}]}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.562024667928252*^9, 3.562024670258109*^9}, {
  3.562024922448834*^9, 3.5620249893060293`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"DigitProbs", "[", 
   RowBox[{"data_", ",", "digitPos_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Transpose", "[", 
     RowBox[{"MapAt", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"N", "[", 
         RowBox[{"#", "/", 
          RowBox[{"Length", "[", "data", "]"}]}], "]"}], "&"}], ",", 
       RowBox[{"Transpose", "[", 
        RowBox[{"Sort", "[", 
         RowBox[{"Tally", "[", 
          RowBox[{"Map", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"GetSignificantDigit", "[", 
              RowBox[{"#", ",", "digitPos"}], "]"}], "&"}], ",", "data"}], 
           "]"}], "]"}], "]"}], "]"}], "\[IndentingNewLine]", ",", "2"}], 
      "]"}], "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.562025059116642*^9, {3.562025166710434*^9, 3.562025171326592*^9}, {
   3.562030123110545*^9, 3.562030126990662*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"DigitTally", "[", 
   RowBox[{"data_", ",", "digitPos_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "tally", ",", "size", ",", "range", ",", "freeq", ",", "posq", ",", 
      "missing"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"tally", "=", 
      RowBox[{"Sort", "[", 
       RowBox[{"Tally", "[", 
        RowBox[{"Map", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"GetSignificantDigit", "[", 
            RowBox[{"#", ",", "digitPos"}], "]"}], "&"}], ",", "data"}], 
         "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"range", "=", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"digitPos", "\[Equal]", "1"}], ",", 
        RowBox[{"Range", "[", "9", "]"}], ",", 
        RowBox[{"Range", "[", 
         RowBox[{"0", ",", "9"}], "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Length", "[", "range", "]"}], "\[Equal]", 
        RowBox[{"Length", "[", "tally", "]"}]}], ",", "tally", ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"freeq", "=", 
         RowBox[{"Map", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"FreeQ", "[", 
             RowBox[{
              RowBox[{"tally", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", "#"}], "]"}], 
            "&"}], ",", "range"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"missing", "=", 
         RowBox[{"Map", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{"#", ",", "0"}], "}"}], "&"}], ",", 
           RowBox[{"Pick", "[", 
            RowBox[{"range", ",", "freeq", ",", "True"}], "]"}]}], "]"}]}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{"Sort", "[", 
         RowBox[{"Join", "[", 
          RowBox[{"tally", ",", "missing"}], "]"}], "]"}]}]}], 
      "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"X2B2", "[", "list_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"tallySecondDigit", ",", "totalSecondDigit", ",", "x2B2"}], 
     "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"tallySecondDigit", "=", 
      RowBox[{"DigitTally", "[", 
       RowBox[{"list", ",", "2"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"totalSecondDigit", "=", 
      RowBox[{"Total", "[", 
       RowBox[{"tallySecondDigit", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"x2B2", "=", 
      RowBox[{
       UnderoverscriptBox["\[Sum]", 
        RowBox[{"i", "=", "1"}], "10"], 
       FractionBox[
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"tallySecondDigit", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2"}], "]"}], "]"}], "-", 
           RowBox[{"totalSecondDigit", "*", 
            RowBox[{"twoBLProbs", "[", 
             RowBox[{"[", "i", "]"}], "]"}]}]}], ")"}], "2"], 
        RowBox[{"totalSecondDigit", "*", 
         RowBox[{"twoBLProbs", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}]]}]}]}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.562025216847308*^9, 3.56202525748273*^9}, {
  3.562025361059149*^9, 3.5620253745459347`*^9}, {3.5625473576892867`*^9, 
  3.562547390914688*^9}, {3.562547462598526*^9, 3.562547565592367*^9}, {
  3.562548199514621*^9, 3.562548203570725*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"St", "[", 
   RowBox[{"alpha_", ",", "T_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Map", "[", 
     RowBox[{
      RowBox[{
       FractionBox[
        RowBox[{"#", "*", "alpha"}], "T"], "&"}], ",", 
      RowBox[{"Range", "[", "T", "]"}]}], "]"}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"PValue", "[", "stat_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"df", ",", "pvalue"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"df", "=", "9"}], ";", "\[IndentingNewLine]", 
     RowBox[{"pvalue", "=", 
      RowBox[{"Last", "[", 
       RowBox[{"ChiSquarePValue", "[", 
        RowBox[{"stat", ",", "9", ",", 
         RowBox[{"TwoSided", "\[Rule]", " ", "False"}]}], "]"}], "]"}]}], ";",
      "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"stat", "<", "9"}], ",", "\[IndentingNewLine]", 
       RowBox[{"1", "-", "pvalue"}], ",", "\[IndentingNewLine]", "pvalue"}], 
      "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.562025489779957*^9, 3.562025560363646*^9}, {
  3.562779637228857*^9, 3.562779646819563*^9}, {3.5627797292319307`*^9, 
  3.5627798127239237`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"PValueMap", "[", "stats_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Map", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"PValue", "[", "#", "]"}], "&"}], ",", "stats"}], "]"}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.562025739597228*^9, 3.5620257783129*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Stats", "[", "data_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\"\<Mean:\>\"", "<>", 
       RowBox[{"ToString", "[", 
        RowBox[{"N", "[", 
         RowBox[{"Mean", "[", "data", "]"}], "]"}], "]"}]}], ",", 
      RowBox[{"\"\<Median:\>\"", "<>", 
       RowBox[{"ToString", "[", 
        RowBox[{"N", "[", 
         RowBox[{"Median", "[", "data", "]"}], "]"}], "]"}]}], ",", 
      RowBox[{"\"\<Min:\>\"", "<>", 
       RowBox[{"ToString", "[", 
        RowBox[{"Min", "[", "data", "]"}], "]"}]}], ",", 
      RowBox[{"\"\<Max:\>\"", "<>", 
       RowBox[{"ToString", "[", 
        RowBox[{"Max", "[", "data", "]"}], "]"}]}], ",", 
      RowBox[{"\"\<Skewness:\>\"", "<>", 
       RowBox[{"ToString", "[", 
        RowBox[{"N", "[", 
         RowBox[{"Skewness", "[", "data", "]"}], "]"}], "]"}]}]}], "}"}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.5620672771468782`*^9, 3.5620673361140842`*^9}, {
  3.562067659371809*^9, 3.562067699396264*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"BLHistogram", "[", "data_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "}"}], ",", 
    RowBox[{"BarChart", "[", 
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{"twoBLProbs", ",", 
         RowBox[{
          RowBox[{"DigitProbs", "[", 
           RowBox[{"data", ",", "2"}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "}"}], "]"}], ",", 
      RowBox[{"ChartLegends", "\[Rule]", " ", 
       RowBox[{"{", 
        RowBox[{"\"\<2BL\>\"", ",", "\"\<Data\>\""}], "}"}]}], ",", 
      RowBox[{"ChartStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"Green", ",", "Blue"}], "}"}]}], ",", 
      RowBox[{"ChartLabels", "\[Rule]", " ", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Range", "[", 
          RowBox[{"0", ",", "9"}], "]"}], ",", "None"}], "}"}]}], ",", 
      RowBox[{
      "PlotLabel", "\[Rule]", " ", 
       "\"\<Second Digit Benford Expected Frequency\>\""}], ",", 
      RowBox[{"ImageSize", "\[Rule]", " ", "Medium"}]}], "]"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.562030202379718*^9, 3.5620302101917353`*^9}, {
   3.562030408489421*^9, 3.562030442469043*^9}, 3.562030823783853*^9, {
   3.562032054222022*^9, 3.562032131868067*^9}, {3.5620321638725967`*^9, 
   3.562032165534708*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"DistrictVoteGenerator", "[", 
   RowBox[{"cand_", ",", "weights_", ",", "numVotes_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"votes", ",", "missing", ",", "tally", ",", "i"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"votes", "=", 
      RowBox[{"RandomChoice", "[", 
       RowBox[{
        RowBox[{"weights", "\[Rule]", "cand"}], " ", ",", "numVotes"}], 
       "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"tally", "=", 
      RowBox[{"Tally", "[", "votes", "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"missing", "=", 
      RowBox[{"Flatten", "[", 
       RowBox[{"Position", "[", 
        RowBox[{
         RowBox[{"Map", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"MemberQ", "[", 
             RowBox[{"votes", ",", "#"}], "]"}], "&"}], ",", "cand"}], "]"}], 
         ",", "False"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"i", "=", "1"}], ",", 
       RowBox[{"i", "\[LessEqual]", " ", 
        RowBox[{"Length", "[", "missing", "]"}]}], ",", 
       RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"tally", "=", 
         RowBox[{"Append", "[", 
          RowBox[{"tally", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"cand", "[", 
              RowBox[{"[", 
               RowBox[{"missing", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", "0"}], 
            "}"}]}], "]"}]}], ";"}]}], "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"Flatten", "[", 
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Cases", "[", 
           RowBox[{"tally", ",", 
            RowBox[{"{", 
             RowBox[{"#", ",", "_"}], "}"}]}], "]"}], "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "2"}], "]"}], "]"}], "&"}], ",", "cand"}], 
       "]"}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{
  3.562041468575787*^9, 3.562041793603685*^9, {3.562294242109021*^9, 
   3.562294247578076*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"DataLogPlot", "[", "data_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "log10", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"log10", "=", 
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"N", "[", 
          RowBox[{"Log", "[", 
           RowBox[{"10", ",", "#"}], "]"}], "]"}], "&"}], ",", "data"}], 
       "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Histogram", "[", 
      RowBox[{"log10", ",", "Automatic", ",", "\"\<Probability\>\""}], 
      "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"MechA", "[", 
   RowBox[{
   "size_", ",", "mf_", ",", "lgp_", ",", "hgp_", ",", "lb_", ",", "ha_"}], 
   "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "lgb", ",", "hgb", ",", "mgb", ",", "p3", ",", "q", ",", "pf", ",", 
      "votes"}], "}"}], ",", "\n", 
    RowBox[{
     RowBox[{"lgb", "=", 
      FractionBox[
       RowBox[{"Exp", "[", "lgp", "]"}], 
       RowBox[{
        RowBox[{"Exp", "[", "lgp", "]"}], "+", 
        RowBox[{"Exp", "[", "hgp", "]"}], "+", "1"}]]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"hgb", "=", 
      FractionBox[
       RowBox[{"Exp", "[", "hgp", "]"}], 
       RowBox[{
        RowBox[{"Exp", "[", "lgp", "]"}], "+", 
        RowBox[{"Exp", "[", "hgp", "]"}], "+", "1"}]]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"mgb", "=", 
      FractionBox["1", 
       RowBox[{
        RowBox[{"Exp", "[", "lgp", "]"}], "+", 
        RowBox[{"Exp", "[", "hgp", "]"}], "+", "1"}]]}], ";", "\n", 
     RowBox[{"p3", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"RandomVariate", "[", 
         RowBox[{"BetaDistribution", "[", 
          RowBox[{
           RowBox[{"1", "/", "2"}], ",", "lb"}], "]"}], "]"}], ",", "mf", ",", 
        RowBox[{"RandomVariate", "[", 
         RowBox[{"BetaDistribution", "[", 
          RowBox[{"ha", ",", 
           RowBox[{"1", "/", "2"}]}], "]"}], "]"}]}], "}"}]}], ";", "\n", 
     RowBox[{"q", "=", 
      RowBox[{"RandomVariate", "[", 
       RowBox[{"UniformDistribution", "[", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"pf", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"q", "*", "lgb"}], ",", "mgb", ",", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "q"}], ")"}], "*", "hgb"}]}], "}"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"votes", "=", 
      RowBox[{"Round", "[", 
       RowBox[{"Total", "[", 
        RowBox[{"size", "*", "p3", "*", 
         RowBox[{"pf", "/", 
          RowBox[{"Total", "[", "pf", "]"}]}]}], "]"}], "]"}]}], ";", "\n", 
     RowBox[{"{", 
      RowBox[{"votes", ",", 
       RowBox[{"size", "-", "votes"}]}], "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.562291218639804*^9, 3.56229125360205*^9}, {
   3.56229404723825*^9, 3.562294065491885*^9}, {3.562294475411519*^9, 
   3.562294476342566*^9}, {3.5624168096775913`*^9, 3.562416815522871*^9}, 
   3.562521029419091*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"AdjustedPValue", "[", "p_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"adjusted", ",", "T", ",", "pSorted", ",", "j"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"pSorted", "=", 
      RowBox[{"Sort", "[", "p", "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"T", "=", 
      RowBox[{"Length", "[", "p", "]"}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"adjusted", "=", 
      RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"j", "=", "1"}], ",", 
       RowBox[{"j", "\[LessEqual]", "T"}], ",", 
       RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
       RowBox[{"adjusted", "=", 
        RowBox[{"Append", "[", 
         RowBox[{"adjusted", ",", 
          RowBox[{"Min", "[", 
           RowBox[{"Map", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Min", "[", 
               RowBox[{
                RowBox[{
                 FractionBox["T", "#"], "*", 
                 RowBox[{"pSorted", "[", 
                  RowBox[{"[", "#", "]"}], "]"}]}], ",", "1"}], "]"}], "&"}], 
             ",", 
             RowBox[{"Range", "[", 
              RowBox[{"j", ",", "T"}], "]"}]}], "]"}], "]"}]}], "]"}]}]}], 
      "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", "adjusted"}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Random Counts", "Section",
 CellChangeTimes->{{3.562025690040011*^9, 3.5620257043733387`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"RandomVariate", "[", 
    RowBox[{
     RowBox[{"NormalDistribution", "[", 
      RowBox[{"1", ",", "3"}], "]"}], ",", 
     RowBox[{"10", 
      StyleBox["^", "DesignDiscussion"], 
      StyleBox["4", "DesignDiscussion"]}]}], 
    StyleBox["]", "DesignDiscussion"]}]}], 
  StyleBox[";", "DesignDiscussion"]}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Histogram", "[", 
    RowBox[{"data", ",", "20", ",", "\"\<ProbabilityDensity\>\""}], "]"}], 
   ",", "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"PDF", "[", 
      RowBox[{
       RowBox[{"NormalDistribution", "[", 
        RowBox[{"1", ",", "3"}], "]"}], ",", "x"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "9"}], ",", "9"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Thick"}]}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5620259167964087`*^9, 3.562025928840851*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
    EdgeForm[Opacity[0.7]], {}, 
    {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
     EdgeForm[Opacity[0.7]], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{-10., 0.}, {-9., 0.0005}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{29.75, 52.90110913930789}, {139.56056793720245`, 
          142.07757818100896`}}],
        StatusArea[#, 0.0005]& ,
        TagBoxNote->"0.0005"],
       StyleBox["0.0005`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.0005, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{-9., 0.}, {-8., 0.0009}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{51.40110913930789, 74.55221827861578}, {
          138.74695974215723`, 142.07757818100896`}}],
        StatusArea[#, 0.0009]& ,
        TagBoxNote->"0.0009"],
       StyleBox["0.0009`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.0009, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{-8., 0.}, {-7., 0.0026}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{73.05221827861578, 96.20332741792367}, {
          135.2891249132151, 142.07757818100896`}}],
        StatusArea[#, 0.0026]& ,
        TagBoxNote->"0.0026"],
       StyleBox["0.0026`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.0026, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{-7., 0.}, {-6., 0.006}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{94.70332741792367, 117.85443655723157`}, {
          128.3734552553308, 142.07757818100896`}}],
        StatusArea[#, 0.006]& ,
        TagBoxNote->"0.006"],
       StyleBox["0.006`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.006, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{-6., 0.}, {-5., 0.0135}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{116.35443655723157`, 139.50554569653946`}, {
          113.11830159823313`, 142.07757818100896`}}],
        StatusArea[#, 0.0135]& ,
        TagBoxNote->"0.0135"],
       StyleBox["0.0135`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.0135, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{-5., 0.}, {-4., 0.0191}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{138.00554569653946`, 161.15665483584735`}, {
          101.7277868676002, 142.07757818100896`}}],
        StatusArea[#, 0.0191]& ,
        TagBoxNote->"0.0191"],
       StyleBox["0.0191`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.0191, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{-4., 0.}, {-3., 0.0445}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{159.65665483584735`, 182.80776397515524`}, {
          50.06366648222938, 142.07757818100896`}}],
        StatusArea[#, 0.0445]& ,
        TagBoxNote->"0.0445"],
       StyleBox["0.0445`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.0445, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{-3., 0.}, {-2., 0.0629}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{181.30776397515524`, 204.45887311446316`}, {
          12.637689510149755`, 142.07757818100896`}}],
        StatusArea[#, 0.0629]& ,
        TagBoxNote->"0.0629"],
       StyleBox["0.0629`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.0629, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{-2., 0.}, {-1., 0.0923}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{202.95887311446316`, 
          226.10998225377105`}, {-47.16251282567316, 142.07757818100896`}}],
        StatusArea[#, 0.0923]& ,
        TagBoxNote->"0.0923"],
       StyleBox["0.0923`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.0923, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{-1., 0.}, {0., 0.1172}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{224.60998225377105`, 
          247.76109139307894`}, {-97.80962296723749, 142.07757818100896`}}],
        StatusArea[#, 0.1172]& ,
        TagBoxNote->"0.1172"],
       StyleBox["0.1172`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.1172, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{0., 0.}, {1., 0.1342}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{246.26109139307894`, 
          269.41220053238686`}, {-132.38797125665894`, 142.07757818100896`}}],
        
        StatusArea[#, 0.1342]& ,
        TagBoxNote->"0.1342"],
       StyleBox["0.1342`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.1342, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{1., 0.}, {2., 0.1387}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{267.91220053238686`, 
          291.06330967169475`}, {-141.54106345091748`, 142.07757818100896`}}],
        
        StatusArea[#, 0.1387]& ,
        TagBoxNote->"0.1387"],
       StyleBox["0.1387`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.1387, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{2., 0.}, {3., 0.1124}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{289.56330967169475`, 
          312.71441881100264`}, {-88.04632462669497, 142.07757818100896`}}],
        StatusArea[#, 0.1124]& ,
        TagBoxNote->"0.1124"],
       StyleBox["0.1124`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.1124, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{3., 0.}, {4., 0.0945}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{311.21441881100264`, 
          334.36552795031054`}, {-51.63735789842184, 142.07757818100896`}}],
        StatusArea[#, 0.0945]& ,
        TagBoxNote->"0.0945"],
       StyleBox["0.0945`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.0945, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{4., 0.}, {5., 0.067}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{332.86552795031054`, 356.0166370896184}, {
          4.298205510936327, 142.07757818100896`}}],
        StatusArea[#, 0.067]& ,
        TagBoxNote->"0.067"],
       StyleBox["0.067`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.067, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{5., 0.}, {6., 0.0428}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{354.5166370896184, 377.6677462289263}, {
          53.521501311171534`, 142.07757818100896`}}],
        StatusArea[#, 0.0428]& ,
        TagBoxNote->"0.0428"],
       StyleBox["0.0428`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.0428, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{6., 0.}, {7., 0.0274}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{376.1677462289263, 399.3188553682342}, {
          84.8454168204121, 142.07757818100896`}}],
        StatusArea[#, 0.0274]& ,
        TagBoxNote->"0.0274"],
       StyleBox["0.0274`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.0274, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{7., 0.}, {8., 0.0135}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{397.8188553682342, 420.9699645075421}, {
          113.11830159823313`, 142.07757818100896`}}],
        StatusArea[#, 0.0135]& ,
        TagBoxNote->"0.0135"],
       StyleBox["0.0135`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.0135, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{8., 0.}, {9., 0.007}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{419.4699645075421, 442.62107364685}, {
          126.33943476771779`, 142.07757818100896`}}],
        StatusArea[#, 0.007]& ,
        TagBoxNote->"0.007"],
       StyleBox["0.007`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.007, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{9., 0.}, {10., 0.0021}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{441.12107364685, 464.2721827861579}, {
          136.3061351570216, 142.07757818100896`}}],
        StatusArea[#, 0.0021]& ,
        TagBoxNote->"0.0021"],
       StyleBox["0.0021`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.0021, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{10., 0.}, {11., 0.0006}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{462.7721827861579, 485.9232919254658}, {
          139.35716588844116`, 142.07757818100896`}}],
        StatusArea[#, 0.0006]& ,
        TagBoxNote->"0.0006"],
       StyleBox["0.0006`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.0006, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{11., 0.}, {12., 0.0002}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{484.4232919254658, 507.5744010647737}, {
          140.17077408348635`, 142.07757818100896`}}],
        StatusArea[#, 0.0002]& ,
        TagBoxNote->"0.0002"],
       StyleBox["0.0002`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.0002, {
         GrayLevel[0]}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{12., 0.}, {13., 0.0001}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{506.0744010647737, 529.2255102040816}, {
          140.37417613224767`, 142.07757818100896`}}],
        StatusArea[#, 0.0001]& ,
        TagBoxNote->"0.0001"],
       StyleBox["0.0001`", {
         GrayLevel[0]}, StripOnInput -> False]],
      Annotation[#, 
       Style[0.0001, {
         GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], Thickness[Large], LineBox[CompressedData["
1:eJwt2Hc0l+//B3AyQ9nC23i/ywoR6WNUXndCycoImaXIChGSTXZGEjISWZEy
s/J+XypSKiMjSTYhW1boe//O+f11n8c593Wf6zrX6/V8nXOTbN0M7fZQUVH5
UlNR/d8zJuz5yr9/JBSQoPcm4hsGeieTLaV3SCjtYUvmvhUMOP/4NZttkdCk
SYdn/b7TkGmvnVq+SkIDOi59EWdOw0utGZWr0yTEwRtIXig7Dd2sEqEtXSRE
WbP9J/1ADYQzn7LF5ZMQp9bgjRpvdRg3jvWtyyWhN0xNEdYp6lC0z3N0IpuE
khofbcu9Ugf5ILUq1XQSkkmj77deUwd12xHTxXgSiglHF3tva4CThHC20W0S
Gq9w478RoQlVVelH+LVJSP1tlmBb8zkIHpev23uOhGi5l/akzZ8DHa429U11
Eto65Z+Qc0ALxj3/WnxTJaHBqY0+Zyct4DpmGZMiT0I2dLGfJjjOg1e54BQH
Pwn9XOgJrnbThv9ePHnCPE1Eu6nxjAwWerDnp5L03wkicmkuGqe/pwdf9nXW
zIwS0fN0/W7dRj2wv0Hd/uEHEV2Q4zGsIOpDirTtTmQHEVFpujwcmtGH9eJD
5rS1RCRJn2UX13IBagsLOHciiChOKdaqM9wQYhg1M4h3iWhIz/nt4RxDsHCc
OKgeQkTMrOc0Cl4bwq6kiHysHxG9nmTFWFYN4cyLnAt87kQUyqKakHjNCL5U
ZcYdv0RE3HTNK491jGGiKYnBVYqIaMJvH9lRNoFXB+UT7ksQEU//UpWkuQlE
hXXyVIsSUXi8X3XIHROQ1GAT2xYmosw7073PG0zAvTVOPYaLiL4ZOqZugyms
ZbHT6P4VRu7UlU7FF8zgUO3OWmO2MNo/JzYR/cAcJKob3pDShZHILe3jYbXm
IF3hGx+eLIxidAt4igfNQeH5H1HdaGHEvuqkFSJhAepP5ox/eAijQzvDWebI
AuyjBiu2NITRWonD79ENSygya3RV/C2EDqjNNT6Jt4HnF/1UMiaF0MYu4i2u
s4EyQ2X6f8NC6MgxdumpcRuo06nOaukRQtueyvm7gpfhI1b66SJFCN2R4Y/W
974MsxJZkreShNB5TgbDFakrILPpP1mmJIS6SZEbOyW2cHo8Yz1dXgjVEmoU
2N7bgnF7PWO4tBBi+G3Qoz5qC3fyNyQvEYWQz2nWr9x8V6HF4JYbNaMQahjg
KzePugrWxc4bBn2CaD3R/HPCjWsQb2HOtOIliByPTFwqMbKHHE1fwqCbIPpu
i64aeNpDlVya9HtHQVRfQ+sv9MAevjP06mVYCaLCngRPma/2IFZl8OCMhiAq
bYxtOXzxOpBZtASSuQRRi+tGbNllB1hoVJQ5XimAHo1ZEXhTnYCF2U4xslQA
vcu5mepd5wSSZklYf6EASl5/6fd3wAnsl38bBmQKoPV3h+l8Sc7wQyzXpzlc
ADW33BzQfOEMHxNYmi6aCSDeJ8fbtNtdIO/KiJH3DgFpOasyLcq6wZsX+61a
1wmo4IHpprWpGwz/PWHPv0xALs8vvdoIdANCSspt8iQBSb+wkCr94gZJH7Wz
6DsIyOzK/O5+JXcIOvZqMiWXgGZ3l15mD7qDOV2sb81ZAtp5F1D4RtkDIjC+
1oTTBJT5UO69jKEHVPoV8jicICCBEsvWV04ewLL8tpJXloAOO1d08Gd6APnn
9pwvDwEx3/5ecJzKEw7WutqenOBHl8TH1to+e8KMk6F2Uyg/0sw+lXM4yAt4
CoYfPfLnR4an6ddOZ3jBmRHXXze9+VE8v4SOb40XZJrGhh904kf8t37baix6
gZ76O0qYAT/imErea3LVGyoE/1PQJPKjoWTrDjd9H/Dr4BNsa+RDDk45qScw
X2A8Ky6BavhQnkxQf7uNL6Q0KhyrLudDx8vsDoYH+UJFsb5Wdj4fspKcP2JE
8YWZu+FennF8qDOweC4IuwPmykufCVZ8KFLvz1F5LT9Qym0NdNnmRcsskbMl
twJg1dNneN8JXtT16dr8B4EQuKfzYMzpOC+Suqzg3yAbAqKiLyffy/KiK9di
j5HVQsCkd/J3iAgvSk4V0lp3CIFaJZPNP/t40ecbrErKr0IgYEeB4+fwAVTU
qnSdzjgU6COXz7yIOIDKg1/w7M0KgwPpNwr1uniQimjWKZbrEUC+PLMg94kH
/T4otp4WHAH24teVuFt4UES9wPrJ9Ag8jy9/GKjjQeI+rP8+fo4Aw3ajWYcc
HtTbFJhN9V8kxNOqyIa586AY7+b0QaYooHWjr6nZz4MsuR6517VEw+KZ7Bai
Njf6fC7lAYqOg1wXSQYXDW4UzO+0YF8YB8YPq8/WADeKtBMxEmmOg9rJtlZd
BW7UuPPWbJwqHoKjNz7eEeRGSDfb4Y5vPLC3G7R3L3ChNLWyCXq3BJA3p/0W
lcyFGNoYJJaqE8HT3XF6cZAT8a4/O6PVlwR6XnukF304kG7Bs6dn0lJhaKe3
JXiFDbGb/Uj6WpQFChxRH4U4WBEqfUh9izcXuI/211hTsSCPL3QL8vwFULj7
fnx7mxEZMLc1i/sWQ1zXFG/qEXokFKdLlhx9AUOlgTtGJBqU/ezpgNZGOYTH
a06zaFEhI031Le7rVSA9x8TceX2LcqEoiEuMuQbKhN69UTdfpQx4lJkT4+ug
tprMfsVxjiIt2pvtRm4ANqr1dHulOYrA6+Rwv/cN4HBeVsSFYY6CXWckhXU0
AO9Q9n8++b8pX6tKLoePNsBtxhCLuJFZCm31HbOL9K9B2eJMft2lGUqN3tyA
oO5rqKdqVeI4P0UROHbhgHjfa2jU7rR5KzlC4R7a4OkYaASnAv9njDvDlJx6
fgeesUbgpZZY0W0fpkg3nqg2nWkEj1eBEd88hykeNTfl2jYaQV/NzHzAd4hy
/938MS9uMojM7fsj+/gHxcqD6NepS4Z2NV/J/sleSvZte/t79WSQ3GhvvBrb
SxEx8H52uIkMd0vFDOZleynvf9JZNb0ngwpvtw+Nbw+FJXaadribDHlzMs1H
mLsp5Gadsf55MvimjduEynZSMMck7DWJAmd/ZEuaLrZQiprU9YXDKCBRqTBC
c6qFImjdf3wiigJMMR9Sy6KbKXf2Wmvlx1Pgi+IKLdOhdxTtjaVfnOkUMH6g
OfT6YhOlPI61sLiMAij5u7iGdw0lrYmHreEHBY6ymhZSGt0pP3kyJsR5Edwy
VOItqDABmj3/DIr5ETgpeVZyHPAHDuO5x4cFEVBfTjizqZIEY9eEu4UOIpg6
fUep3DAPKBIqwWNSCL5XLMjHWVeD5bBRVLcqAmNnyaN+480w+SRuj7YtgrQu
n890hS1w19hBOfkagh/KzU6Jju/h6I7yvX57BFcZL+fnz7eCON9KoJkzAo/8
h/wdG20wqfvCUfwWgla34NAk+k4YGGeYYAjH93dIvLPveicIPOjl4ohEwNL3
WVjwQyf4meVr8kYj0FclNBbGdkGk0OFi3jgEvSyv1l+zdcNaQ7XmdDKCiWez
LlP8fZCp9iO+9SmCCKukBmn/PvjS9OxIUj4CCXZlJo/BPtjXa1tjWojA5XZE
4Xb2N3BzUonoLUawqkkaZRf9DgdL0n/nliPYM25ielJ2EDws58leZAR5qTv5
IYmD0C328eYOBYGmdt5qy9IgFHn7/w1uQhBdsXTfoOonPOn8GO/3DkEUpmlf
KTAMxPeRD1U/ImBjHXnSmjMCpZAo97cbwT2zpkip9hFYtYnBJHsRMOTmuMZv
j0DHIZmci30IdhVsTxqbjoJPm6lxTj+COfOxviGWMeBL/efC8hOBQ95bsprK
GJxYol4VHEIwPvc0P//6GFjZ1LRIDeP3EXzN0/nNGOxxcNU5OYrgY8HE/nWf
cTj6cqv56CS+/8XmP5fyx8Fa2CNVZApBk3LBj9dd45Anq/aS6xeC2k/2xaFH
JkDp6Y2X09MICpenNPaPTcBhWfoR+zkEd1Vn/EX1puBpCVVM6QoCqqiPV6P8
pmDfpI6f3SoCv87i87NFU1C9wlPM9we//2vOvOU0v4DhnzrZew3BlZjflSfr
fsEJy9tVNJv4fr9+Ss+e/AWYEnt4Fm4zwdKQPVzT4E9XnHBsC8GFshv6ra7T
IA06BsZ/Eaj2zs8YicwA88AfP4cdBPXC7Z2vDGYAGQhzjOP+z/FlLV/QDJwZ
dh6y2EVwZNstYqh/Bvq6ZYWwfwiKNC7cUGOYhUKT/QnPcYskHDXOV5iFGxI/
j3NTNYHAwSWSc8IsMHaeEBnAnebcyfjl9Sxo79VwVqJuAs7q8oWjM7Owafzf
1H3cTOc8GtfUf4NU95i/8p4miLhvmHfJ4zew18qmROLeMyAf+zr7N+SzhY11
4t68sWIWuvUb7L39+CxommBX8xNXpdQcOPVYErJx7yHmd4xZzkGQb2HBT9wM
mwH3uOLngOnS4QY+2iZg6TI5p0GZg6G5SrMLuNlLZGm9F+cg/LhAUChunruM
qIA0D9fKVWTKcBOsRvz6DOeB7vqsXT9u4n/1iox350FxeJ/YLm5R1gcrStXz
AFLhrkJ0TSD5y/ml4+Q8/PuuCCq4ZZvUndMPLAAHA1uaAW6FdEHxtnMLMKf9
9/Y13Mqea6N/fRdg/ePMiAduVZ32x9IlC5Al+bXLH/cZ0SJzqx8LYJHyXDsU
t0gQxvyefhG+kD10wnAXzEo72ggvQk2/SE8Q7sNmfO/XFRdhM6d5wgf383d0
ookXFiHD1CLQGbeM3HKohOMi1FEWHpvjLsv6OYxCFiFIJPGsBu5jTG2ql9IX
gf2i7m0p3K+8azKXKhbBO/+E3D7cSmNPt6LbFiFs3sNjBj9/vX6i2cHxRaiM
23/yLe5Tr/1f1W8vApPdkfhU3EjCkcuIewl+fV9yuI5b7eFFj9kjSzDaH/JJ
Hvc7arWOMM0liOygr9vE7+usq4yMgM0SyJWXyrzGrXOWYUYncQkCY8VeHcP9
pXLl7ETREqRsXW39hdeDAXE4P6BpCVhV0689wm2yWXvlxfIScH6cPzGH19c3
u3yKJvMypGQk+yTitui6Lzh0aBkqDNVUZXFfLnHqZ724DOPsszds8HodPWCq
WHRjGS6WRPct4vVtd/fMQyxiGU7o+HwOwO1kJWBws2YZ3M+U2sTg/XGL9Utr
F98KVDOelXDdRrDmVy/mLL8C9jaM/wbwfvP9VXCXRnsFjN/q2WngDmwKwhT8
V0Bw6ewoE96fUZ5ytQ9/roCRekPJ5XUETMOCPDLrK5BNbclSgvd7nA7TrRbW
VZBPTaFawvMgSXRMdh1bBYV7ogVueF5k9CUXmj1dxfs6ZE1xCZ8vJnc5Axvw
95Ne0F5dRJDc4xn09OsqRDnLdEcvIIj/amg6T/MHyv811H3E8yi0nY3h7rU/
INfcUc43g5/v/T37l6JrMO5qsfZ7BMF1Tf+u7lNr8C60+kY3no/Xmp1Vty6u
QUytSEUNnp/Wb8/zaESsQax5Tv7NQQSGFMaW75O4Jc31K78hUK65K0pftA7W
FQp3XL/g+fLfrftSaB2MvrvJcH5GIF99defCt3XImnlKrmxDIF2p1pPBuAFZ
2QSfX60IiC+pwuUcN6BbdM2O+BYBY6H/uKXkJmS8KJdve4WgL+XW08rnW/DH
KHCYKwNBcZykrPLbLag9Q5Vo+giB/93henL/FkhGs7xPScW/56HT9YH+L+zv
NOpgwuefk64I9fDlvyCTQev+4R6CbZpuaxbubchgOz6fE4Dg4M1j/HYBO8Cs
zlnYaonPu+vT+TMPdsDdipz/2BxBi3W2nHvxDtA43TG+aYbAWYdZy69vB/6I
ofcsxgiqxMd87svtgr7ckSMC2gjO/kzqaZzYBcZiK8XHSgheifqeYxanwvYW
CXxWZsfnp0ZS2OljVJjJ8+90N/cj0L1WQvYBKmyjKjspjxmfV7mDCuOmVNhp
7swyKnoEHEQ1UmMUFdakP+PB/4cCrvzMW64zVNjRRxTycjMFxFizSrpKqTG1
yxnb5rYUeLiB9qcr0GAPMqhH2CLJ8Mmo8RIVRoPZOPSyaQWTYc/Lujx7bRrs
8i/iqJ8vGVztKlSO2dJgxBWJO53OZNDsemr/KYEGc1M9sHHyAhk2SiLIuzM0
mHVL8CovLxnMbXRcr+bQYge+FNbT5DUCsaXvs/R+eqw0YE0tt/Q1bI5e0L3S
z4jpaZn1hmTUw/UNQwHPEWZsmv6gwqp4LYQwioxHVe/HDv37o73eVA2PGCk7
p8bYsET+4ITHwpWgGfM1vM6AA+v92u1qWVUGGcf45unqOLHap6UwO/AcVC4d
2kWq3Fi7uLOitWoRyG4nMwUW82Aaeyf+levlgRuhjfxMgRdrE7usLRP0BExs
5Y0Kaviw3seCtkx30uGBGPV4HpGAiT7ODus6/RBSPMfS3ogRsNkjX1I3pB9C
GmrWHZYmYA4zivlHeB9CpnlMDUGZgIWO0WW+m0+GvHjO2CQDAvbJrT86PzMZ
qtdE5YNDCViR3Xi77N8H0NdyPthinID9kxDsOvs2CQjXkwU4igSwx261SwGB
icBh6ND/vlQA+/VhquyqayIwnTqZElApgJEtKJ4XrRNhg2OcdZosgJUn3Vq2
VE2EXvIxGtQjgO0f21uytpMASTxfp2/QCGJG++LsxmgTgKmFveaDtSA2brjv
2DmRONgQSTAI4RbC1JyTNoULoyG+e8yAnyCE/SiOfiQeFw0id5UMK4lCGP0H
t60zntFwYWzEcEJKCCsuG+2rh2goylEw1lITwm72PJjP7o+CS0LfTdjdhDC9
2sRpVfYoqD8gapnTKoTFcq/bxyREQABTg32TnzAWSYVVk1rCgPbTC1J3iDAm
7uI3ib0Mg3txuT8mI4WxO7assV5pYZDOFmPIkiyMEUwCN4Wcw6CW55Kq6XNh
zPH8zKY7exgsH1znnvshjLWH5mzS2YZCZdYjWxZhIib2zsUqlSMEvAM5EfdB
IiadSLDW3g0GFZs4QWFRIqZ9eFeScyYY3hBDvslJETGuYL/VwaZg6HjqoGeq
SMROOKl3W3sEw9wzRZVcfSImxKflQfsiCMRf9bArBRMx9wO9zZOWATBpd85z
XxgRC9S3U/E8EQB53A3do+FELEHPSFeYPwCIXk9S42KJWEHWzc2ePn/gV3AW
HEshYsH9t/gajP2BpYLqcHwpEZuvyd00MPaDxVIpbPw7EVNBFAZhJ194YfU4
p26QiBne5Pfw1vEFl33sNAnDRExdU3hgRsYXpl3WmpUniZjWFwMTydXbMCrV
pJ2wRMQeR6a9oA6+DT3PTExVGEmYA6/VyL9MH6jPD3FNPE7Cvuy5h5XMeoGc
QYp0vRIJ86gwQO5fvKBou3hm7AQJK/34Ts603AtSjbrtFdVI2NKw050IHy+4
RS1u81OPhFnUTD1ypvMCGatP+tIOJKwq2eW3ovgtyOU6INeaTsJYlcd+8oV6
AB+SWljKImHSKWnurQ4ekOiMlRJySJjJVxSXrO8BQW8cD7sVkrBP03FU4YIe
YOn+msRTRcJEt55PvK2/CTyfrnBc+0zCTlHNNuVuuUOcj3dHXAcJkyx/1yA4
5g60h2Lja76SMPkYzuyqNndY8a1iYv5OwhQmVBuOZ7lDhzgDTcUkvv50h3/o
aXc4+5XQNDBNwtpoqP70S7oDOfBoEN0cCXNFWjE6XO5Q2nPpr9kKCbviMKRL
1+4GIiGudaFrJCzva+Z6bK4bZEqH+TzfJGEfjNPYz3m7Aee31OO92yQsQOGh
o/J5N/j//+9YRqv7ZxshN/gfephJfQ==
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesOrigin->{-10., 0.},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  PlotRange->{{-10, 13}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.1]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.56202591748764*^9, 3.562025929625267*^9}},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztfWlUVEfX7nmlG8Th1eRNstad3pVvre/H/XP5ee/3fctGcUAFtTUajQaj
ROw4JBE1UdshRqNGImpw7MShnXDCCRVxAhUnVDDSxqAJRmKCA8YmtkPHYN66
tetU1anTnO5zaBrsxrBWH+3TZ9j7qV3Trmfv6p360aiRH6R+NHpE6uvdJ6Sm
jxo9YuLrieMm4FNRf5OkFv9Tkv5mfV0y4f8jSVId+N8/4RDUiYXknyjk9XiQ
2+1GHm+tNJKeQ7Vecs5bi6RRGteNo+c8+LvbU0u+dZcfm0n+iUYV2TZExUVS
nIQSbA5U4UXvkp/NqKrYQX6y2mwoDv87O7dcsgW+NY383BZ5KwuQ3ZpAL4lD
ttnZqLKWKud2ITu+RUqwoZQECcWlZ6NqfFeiKFwMqixwoHS7A5VWecldFbl2
/KsdHiMNp9fUVuSQV8wuqCLXeOl3Z7mX4hT4OWkMS1SJ0vF9CVmlUgt6H0JV
KAPEt+UgWfIqNBt/j8soZqJ+yW93k0ttuZXSMHIuFh9qUb4dtJ+Nqni5epHT
is+lZOP/KcUm3q+I5EHOBFGkKOQuziDqZWP12DmXw4rPWZHLi6Rusliz2CO8
FSgrPR3Z7XbJRI5R+Ii/ZxWQ15uFVzniZM0U8d3IkQCF5MC/sj96Li6DFNgo
jftF8R0+4pdmyaKWYlEVlbKISo5STx3xa6tQrtOJsrOzsfhwjMJH/D3fBQXC
xa8qkh9hdbio+Cb89lJkhcKzEvHZ24oyEogExR5FevH2QNIzoEs9ivQel1xD
skrdTHpmvlD+Xo8bVZYXI+fsFFoTElBRNVJAri0nZqcGuRYVzFbETDPwvJCJ
HY1tphQlsHpNPlaU43IP52bhkS1YJTF+q1Uxi7TAjxoZUNiUusKW1rGQTFbK
UMfS8ZNxC1Je5ZbbrZbKadxalbNGh9ZeyV4wUvvu9wS5suLUcjEZADDFmhPI
GypqecVbSDWvrYRmKAU5sPU6srJQRpYTlXsQa7W8FbnkafZ8uWFgdSCn0svb
Vz+PGEFlrypyIJtNtgJrVqnYZmUl8AaGGJiN2jZts/5JxRd6KOl9rroX5dji
SPfVghyjMAwufp1st2ZUzTqGFCv5N6OgUnrP4DPepde5K4pQRgqGGTcaUcxi
PC5aH1KI5cTZc8DKAkiezt5a60GVlW7yLZWd83pQdXU1cnsFDYXrmCF6vdxG
eOGCbbjxvdVur9TD/+vJ8Vlofv9f9PdevXqRa/C/0j/IMQa9/vp/oH/7tw6o
R493UM+eg1FS0psoObkv/vSS2sE1LdBrr71Gro7i/yPnXgn4q8+5xvvVgCzK
r6/B/1rJqLxCkQLQ8CEWDn/TBqxDfE8MGByj0H/+v8/JuY6WrzBAcGyJ4i1L
8ecL/JmFLJbJ8j2WVPwZiD/JL9FbX3r51TqP0zpHv5NvLxu81+h1obg3GPnC
4V5a/tT2o1hdIIUdq1dVolHc/xlJzsVb5uHPAvxZjD/L2hMjaMWMgnw6xX+F
+vXNRqNG7UefzjqFHKu+Rbl5Vaj44qPWqMTlrSOk+hx8Y+eY0vDtZYP3Grku
VPfWV76G3GsUF1zQ0itCIbNG8WWNhvIfGudi/ber7BGigZBvUhvcZvbG7ecb
KKnnINSzx1DUvfsIlJg4BnXrmo66dpmMunSeiTp3moc6dVyErWSFiRhOlGg4
2MrkY+dOq9CQITlo0pRCtGxFGdqXfwudv/Qk+i/jaTTjge+sRF8JUPINMJ5/
J8eWqKbmCbp6tRqdOP4j2rqljPQZ8ZbZpMnoFP91K2IEZtS921pke28fylhw
Hu3MvYkN4DEeRihasbbwHz7njFhAoHuNXGfEAnTvbQH/NfLk+t2hwuA1oQNg
jX2S/yL633AkxoAHRx0sSaQPt1hG4M94XEYz8WcR/jhwKUIhmaAHIOctltG4
3fl3TQG5MPUSP5hiCOpew1I1oBjoOdYFvwrHZJ1iiCWXmsl4tEePYSix2zjU
JWEmriJZFP4oDH0Ghj4dGsg6Sr/YsMuymNDx0zXEODsnfIY2brg43D/o/5cc
TehW1QN0MP8amj/vGBrQf1MMhfrNAVvRvPnF6GBBNR75/gW1Iks7CvWpcw/Q
iq8uo7S0vdCOt6DApQ7L4Ri/4x/+/6Lw37xZg3bsuIw+npgHw4Ro+pThw3eT
h58peYjHGn/Br8jSlp7buuMGmjDxCOraebXEULt79yEHeKh/7C0U++RkK27x
obWfgYdta8z0KdATT5t+Ah04cgeP9P/CXpGFoQGmv+jLUtxebJHMtGuEWVC8
ZS5utz9Ad+48FFsegr4Megzpluk70NmSh2i1sxyNGZOHEjp+LbESeA+Pg6B8
4W0xf5WAIEtLeu7wsXto2owTKLHrGoqaGb311naUubgEFRTdJ9dDf5qqVwui
xALB3+THQzeSuahEKOAolPL2DuTceA1dKHuCz/1VKIosbKKWd/gOGj/hMPQG
kkloTKZOO4725P3C0aWFQ/AP0ENrFVA0LaYOlqF0gOrgr4LRUQfLcHYF9478
VUAmeg636Ghc+iFoqzhqAwduJZNu6GnNQRRQa+oVSOo5EM/77dCJ02dHo4RO
nxPfADwLPjAgxs9+5YUtCDahLTzpJt4OsabAOCp723VVo2+wIJLoObf7CVq5
ohhXujX0sSY0Z3YBqq5+xGrRi4R9tHgOfNN4pDMONxPLlRZjFj49mNzSirYY
FG6C6DD/kPei58C7sSTrNB6GrcLfWJu3Bo+nxsMbpRcI7xZwCv/Qo/sIbNiL
KRjysXPCHNwSpJC2oi0cA3TMfei527c9aOaMI6rnxFsWoi05PyrKvhjQkh6v
H+nxRDSG47nWhfM/E7zS/QPal5775psq9O7wHNUjJuNW6NR5D3lJ+xcCUPbe
5Q4X8WcBDmzy2qfXerQ39zv055//kib4B7QfPffs2Z9o9+4r+OZlHNC+1k1o
20557N7uhQC0vdCpgQdXNK8vMk6gBw/IGro00T+g/em5pKT+uEw+UZUJTKzm
zDtLHMJ/fyEAZf6mTVsrUHLP9So0oAG89M0tgtfHeoCa+NgZZpk9e6xjxTJs
2C505Pg98p42LwSmzG1y7pvHaOanJ+tYmMXyMemvJwuYEkhlJM0cSfwYbOn3
8XAtV+nwE9eidZu+J69o/ULAyXxyYEQwMVbgNKHevTYQ7wW9drKelcaosIXP
+UtPyDoQ+EQYxtAE4Kk3eW/sC4ExWzzfvP1HlNRjncpkYa39+JkackULQyhH
iShLbCoOK23QY4nPHjv2ADp9QR4StHwhkJb9etFoUdZFmJJxZgO2P/DzRfGb
64kym3cXnf0N2Wz7VCiDt+roiV/JFTEvBMrMd4c7cjTFfkyFBrQZOXt+Umwz
GLjN/AVP6rTxfXpvRPsP3aYF/SLAzXwI4GQGB7OIxjvv7CLDNW6kwcAdQ8GE
dRqgcLBa0yPRCWX5YqDMfJ9QxYdhVEWUwRdaXPpIsc36oizXGvk1ssdzGUc5
3rICaHcxzR1gMznC/PcNrHOmCmCLZaIap3piG8uxfQs/O0vA1oGf/V50c8fW
xPUfgHX+0kf/sa11IB1Oz1VVPUBD3tqiGgTuwdNi4a/5tQMtKHaCv5D8/fjj
fdTPuoGZaNfOq9CxY9cJUrP9Q8nI1uDBTRuxU2XluxUopeaKo1mF4/Xr98EV
wxEAh2ppyS8Egc8EEAmGjAn/8OFTNMq2W2WF+/aWkwfSdzdD4EwcuMobbmTt
vZ5h1rP7WuRy3SbgzPFveHIkRDR69OgpGv3ebhWp9/Ch75urvcn9AHiY+/fb
yO0sqYcTfXflLoFkrn/MWCwRWJwtbSfHDAZBHSzDGk/v593WAd/37cFbhZHe
WvTtt3c+9w/VSGpeHs/vhBmk9DDLMVRDmhVKkrxe18HSGyV0ypDEHuDiRRKi
JAVAikUs/XrvMRo0cLOA1FKUd/h2Y9JZmx6paLIaF2+Zo5pqF534MUMGiMcP
CcG5JlrrIHpPCTVCqmv+rgHsexTYn3/+DdpH/kYrnhEWFN1/qZkAy94BPjJf
F/r+feUcjvkywhAmhv80YpNl7NsocYe2HBIEp3Epxb8C2SXcg8tBak4XD2jk
xSgWxyhaHNeu3lPNZ8CLiCdL7ZtVcZhJQAxTET7Zm76RFtAi+B+BAq85thnW
OJTuLNW/1l0sl1e6E+Xn56KcnByUnWXjUdJRGoUxmhzNdHK5kktpsUyV2tOO
MtJL4iVaEstWulQl0bXLZBoBK+HJo06MuWzJbZGBcHT5r7oAWSUrKnIrtaDK
Vc5+16wZo+k5UMFiGeMz0x3DVWvbTAqmPe0KYK0Amn+lx/sUIjKVstEJoJex
NBZrz3D3VmQjEvbtRnJLqFUWLSglv0vnaYLlrITwUdzTyLQnSmmK2EKQ1xpj
0KHCalggFAohA7cKhLbFa0mUmAtA0koGIJ8zlDeANUdy1LYN4W5DTkVAOpLR
tJd4+vQZes+2S+i016O7dx62pTeLzpxIRJ+sZ2MLP1v6iCwIMDV7JW8ghA+4
A+uoVAWdNAe8KhjIiBDFygqfz0mBsiLNl0mjNrxPSwN4ZH37bOBiwuTn999r
2zSr0jCzxQl5TpewChbJJHHayGD5gheLTi4HuVhaId20D7UeVFXtZVVDzDmh
VSwfkKMZlZXdVjng584plJpLmbSlncSadVdVvffSFWX8Gj/FEhMoewU1/9ZI
J8sF/n8FskF+CqHJk3NWyNVIq2A+pAUjc4MUoXfkXCZvbA4F04ZWFmDiA/+B
6Thu3CGZ5hq4aAIl75AhbRfoGvKd1I84OypyuVC+005+k6R0kkpEq1jG0WLJ
mH9c8Nl8DbNzqVUzKZbWtL4Az2XoUMU3BdG2p8490C0ZeVqokZkkmoKnlbSk
Be0f8I0ox26lBSGnqsmt8Jj9loXcwVOvLflA91JT441tVsWhngbCWHfXvp+l
KJ2y4E4QIQFLS41zDN5ajxufc5PJntaYNp2W4L17j2CFgsszY/phqbng3Yri
DdQ5seXNXFQiLHRr463llRtPMTtXfFP1vCOHf+BlEemYxdImAwgBlG5IPhCF
dqHsSTCwTaCwLcws4o9L7ukE0yPplZoDbC0pbMA2SUvL5XoCleX46RpzA2B7
8uQP9JbgA/54Yl4zg82M5n9xXrXYtHXHDYGYEwAzAtlEilTZpVvkbvakvbnf
8bYv0pGKoUjl7P5JxUqbM++swBgzbl0fUcyWLzsrrOCsgQh43odEOmbRtFLC
hPqNN5QaBPHk5y89Dh62aJjoondStvFHfvB+LsQJmJoVcmY067PTKibX0RO/
CixQ47B9TK0NUr/AIJs9c9u2Mqm5YGammEHCItGDuWylS+AoG8dsEsVs7ZoL
/FnduqxGlZU1UlTkYyYH78JqQ08Ub/lc8DXOldoEg1Q0qq39k/FlZI/UyF1w
rkXzAYuuBAicvzfrC9ZkalZATYLVaPa49euU1JwRjBQ9x7LtMK99UtIArOVy
pSJ1nSB77TP9IzWFHGPQ5uxLKlYHIAd/8vM1BAx/iOA7CyVuQQ1imv0QV3Mo
7tr++OOZ9LU+OrjXQ2NH71FcPh/ui2x0zCI65K/oxI8SizwB9yqD4Cv/6Nhp
k3TjhlvV4R0rvC6n5Ix4YIAjJtKlMhcUce1FsyG4TKU2tmzJGQ7FgP6bIOlM
ZBqJSYXF4kUnGQz9+m4kVDDQd5V/+2CAAIriIkq3rhMjHZBvv70DszAGCFg8
0zoAINNohck/cE3wrUAP1z8S4ZCbWEiLOfyd7byOTJmUzxVerY/Fv/71LxUN
E9bCIxALMnghqUDFiebdOw/X+odgOq0fMGEQp/QdLMMibkRiJqu34ugjZ7tL
cvpXfgZVfkHGCaHsF0IOXc1Mf+GtvMUylWsBo3MIpzegfE2NF3WMX8pv/SLz
QgQpzxhf+w7eIgEUTIuLpVXSOv/Kf0KVT+z2vtAlrAFqouTLTQx35U3EZ8y0
mDwpf72+3snJvUg6cXZX+vjDEaQ3I5dBjK7ShzlgwiDpKk9nXZYUFdVr+65K
eCh58N8jBoj2FAignw4ZrBC9u3aeKm0QgCA4qNSPB7bbDK7+4MHbeZx35KkP
uc+V9ns5JLRQqa9pB0qaBug1unVZw7BY5fyOm0LbiMGiHR0CgA8WSNYMD0gq
jBWtDxz489mcMwyOAf23kODhyIQD92Ycil7J6xm7ThcOswqOk8UPwC3Lqwtk
sWEmopUoNTwxkSt2DElhABkCOatneRm5BjwJ9QQGQMhYcJ4DY+2zCUZPEQoM
5LZkoEAqYjB7w8BE1wEG0jkkJ/HYsMVLLnKjaR0x2MhVviU6ePSuytu+Pptk
XmH4UHhCGULi21+BNC1oi78466KyxJ20HqCOIHtrS8dtH3yYz7VITd3D8hRS
SIn6dDijFzgSayRwRNkzzSsThbNKPZIWTSgQ8hBaD7WcyQ21P3KQZ/y5HXt+
UjFLdu/7WQoE/8uhChphi3Co1kWKwEHEMVYEUVR46H3ExULcO0VQg9KGGj/N
20CnH4e00tQy9A0GigCbMHCgyMPqUuR0OFogh8MB48asdLmO2DOQI7vIb8BO
oMIAyh8MkZgqeOQUQYXBmHLQmvOll4RVwC+VApeIofCQl5BeeMhNl8wuTbCl
IxtuqmyU4BiXYEW22bkk5sFokZioMqvWfqea1B8/XaOZUj2ci8TEEnyRz4yZ
RaYApdHAEJFY4VIviUpg3N86rRQJE5keAHuYRIoxFdM/KYog7BmRceMWhcjY
pfNqdOyUWwpUAAZDRNoZCREh16QQwjX8X+7VYe9Go92E2U+dBk5JbIQVhYkk
TeLGNOOEVrJspRQMRYS0QwY2ApU7jnKH3JV45BKpTylEU/lFOvikKYWRUwCx
1IwgO7ZoRuAiDVQKRgJAdLc5ZWFSZE9Vq7xVKEa/fuCbSdJiJjtMXvAkhidE
i5QSMBEaHdNi6rTj0QHB1w/xCHyNEqAm73AL5x3GkY+hMovc3PTxhyMH9Ja0
DYXgbMWnuBIyYUkxdOQnMoDoIkNwIRx8Qka75Yxi4w0MI6pCMkkmKKzg7T90
W3P7knCG26TKSmGxTGnpH2mjARqMul2Lz1G3g2Z8kha2LakVjx6dx6WaMPFI
GMPK0sBTPhZlY8lH2HhXmeyuhA14pVhDXlAtVMxo196fVa3qkeP3pOhwhqau
LZmpOUwYv5+rMv/z4zvqB0ispvFOYtulRAgWJooI8EkU+t3X6JdfHkhBAQKN
5ztC47kcf7fylIIRhYoJffzRAa7K3DmFOwVACB4L6HUiH3bN6gu+1P4w1zaK
2kB5ebWqat+8WSOJKvvYwAJ6G3CPuDu2pxM9fvxHHbp5RCBgQlMmKz7Z2bMK
dukrD8TMIYMVD9C2rXW59mGuPKOmfn/tnmosUXnDLQVAIJPetnev4nDp328j
YbT6MucjAgETmjZVIefO/OTIbn3lIZYWyIjsrrz95eGvvDrzI/xBTWfc2+sV
97maAWr/QoqAyNtOGbKVEI98Ge4RgEDmgiK+jmmfcpCrGaACMAQeP35K2j2G
wvFj1yMNAaCBdeuymiNAt7vQQ2ARrTervlYCC21pO8NeeZNK+XXOEqY3ZFdh
ygWo/bLe8j7bECzEdC+RE6YyxY1Og5pYZ2izhKylR4/+YETnxeQYAyxsZVaU
vl/U15Byz6GJ37e3nFv2m/2zSQQTKLNH0JYoy3S8dcujiieAgVEY6wgM5qEp
27iOeAzCi22P/xL9khyjyXZ1fK1h+uGwtF6ZX3H2jLJwC8l2Hz16uldfP0ht
LI5rknoOCjv95OY4fZxC5Vy+7Ky0z79yWeRoJmR3TvzrYg8/EzWjnj2HqKaW
d+88NKIZbJ2mOC5gGtknvDQzoS6dZyjThU+P7vev1BJyNLG94Kiz4IMw0Udi
aXSBQL+StyMQFsAUCFDPltACy8tT8kXFWxaT3cPCpNunUVWweQGT8MP390p5
+kpBZwlb1LHb1m64Gk5KWXqRbMVMutOnKgMptZRa4epVyngtNXV3+OhjsYxV
TSZwz6avj5kkcO4o5FLNzauqQ2hveqVYdAIQCeMtixTp9lyRDvgOPZbRohGb
lI8+Pho+WqxZVy70oksgN4NKC5+iWUaLBnYgFRcQj512S0YSDjeFUur12W5d
J+Tr6wPdtBhIP29+cRjow2IiRGYbRK4nJb0h6Solj60sljR+K+TCLL74qF3Y
6JU+/rDQbdrJ0oauXizWIwnyA/FO7avVV+Ch5MG+jPamV5Al5D12yq3KJwnb
42DpjeqInzb/C4WI/fbbO8JQx88zzgnGOY/8rugYLHmYr6IifI6u/mmlYmMN
LMPrxJkaYPcwyHbIO6ERUX0ZrU0PGUsRDPxCSG6l2H4ag43Zf2jIwWwJoLo0
m5xjv6VnuzTXpH3RBOgmTS5gaH447mAYorl2/VWhiVtPmgZfNP97SBPEs+/2
/Er53qp8efm/qFprNVoL1X0HbzFUYU2G7V8YLqjiKc27SlqKOfPOavnX6RDO
KJUXiKN6Od+9KMem5mtxXpfV6Zc4KvbiDGD4jBiRyxtPyMZU4idSo+lRZgmS
9x+8rVqbAyJWYKhDxNGthv8DrJIG1PgeN4OasEPZtMkX4HWbvucAQ87zs3SP
vvAB2D5VyUD94Yek+QoIcANpt62FSyvR7DgAO4sXALQr0PwG2khCHLyJUENy
xH59sxnaK7++zM3Zl4vb9Giz3NKnzj0g7Gy+bLqzkt/n16IN0WzbG6DZUrIn
ATgL5ec65P4Rf7LLPf4bZvWKRgva/n2xUAkyxPOJ598wswAjCDljgg0atM1v
HmIF4BAyaEuzKJU/3YFyc5zImZ2Lyqu1w138o2sm4Yowb2SK7Mn7JQwaDRZJ
BIR3Mf5j6fIy/5m4Gc5GOLJ025OASdIRsXSbRDNwI4X1pgduFLUQ2C2ViT5p
SmH44Lp5u0IpgWBViPAzgGtD6a+sxfZW5sstAjbmCi/yP53wjQrqEC8ToN4W
Jjrgue6Nm175iueNrQmNGatwmqbPOOE3JTaDNShuK6OVYShRNk1PbpudhQrK
3Zo8TC04TfQopqqwWMY8fyRZ3BTk4RezxB44ckfSg7P+BFY3qnCVotKKAMDF
kCmMCSV2GysMEjNbkdOBN8xpCqRMqgynI0fu9ZvfOoCvdxW1qMeP/yCbILLH
XfrmlqFU6o2rKIsdggDZJGFPHxj3BqPtatoSLcpUVttnzTwaPoqKWTf6WjfB
qNOYokTP1bQwgWvEntIF9/L37z82lOO9KXQ0oZQUJQgPj/L8phcPUI5raDmK
uRs3brj4/HVkAT54PKXyz584UyMFr6gZNrDlzxs4IJvQwYzkUW8KbU1osr2Q
S4cHP36TnxtQ1Hdh8Mzpn8JAUcbSP33egxKF+dX2XZX+U70H0HYttd+VK4r5
syZPyg8HReXBgcUyWhhrLYgNRj0z5GPnCfDg31u3PIZy2odYR604jmjatyd0
zOCKJnb7oJXO8oCTFtzHE5Uglq8c556LUnWLxEyPIuMciHQez+/SCT2lzOjU
yRv8NqiDQDk2kk6/yTQzqTY8+nzesSJ9pYBJDuw0dteRIz+Ei1JsNA95VGFj
eCbit9/ekQJoto7evGF9Kb/l/bG5YaWUCe3epYxkUoflnNTTx4x+/fWxarHu
+vX7hvLrN6FS4sbfWEFRKaLTenrdzE+O8OuyFp8KEy3YapQYlAR2h+1PClA+
6+ltpSXKmAaI2UBVMJLLv8k0M6F5cxVv8xcZJ07pKwUkzyFvKa6mgwevhYtS
LIAEdpwX6dC4dZcCaLaBYrE5+xuleRiTG1ZKmWADQS5d2oidp/X0MSO3+4mq
ebhxw20o538TKiVuqrI397sASm1kDcUMpaFYuuT0c9OnbuRGWdltvrQEjgFw
EIBwASxPVioGXbigxLL2SlpH9puBv17+suo3kUqfzS7QzPhuQCVoJsR9rGA+
9rxV+u03L2yCwVX6/vt7RlTaRI7RMF/m6sAOQFSdptNGHS6ybWsZUwS2SWbS
BqhDTBF53KD4Cysra56nIkPf3sYUydtfrqkI0SObnDCj6dOU6LhlS880sUkp
DVnZpVvKWnL3tcgrU4OkM/5LgKkg7inYO3kdSk7u81xUmCNUcHDxMTkNqAAV
fNCbyjShe6KtyVWgHb1Soa/dM6LCZnJUzwc6d5rb1M2S2KPb0nZK5/QkjiYE
Y7HmdrAMaGKhh7+zXeyxmdANZc3B8gIsOXhqtVlzW6jVidvWWCwfNWV/37OH
kosFtjR4/Pgp0z403Le6W+nGIVu6/Ls9u1RrxZrBUnxW5NsuAUZZ08ACRPFp
4gziPEUktPy1ciffDl3+q86nv2vSJBgs4MoA569iMWlN4B4kv1h64zcu5y1T
+Xd3uXTFFCKDLLT2SJ+FhuR9yROcyMt+9hSznG1aCG0lRxNa5ywVDGdOY4PD
wl+Ufc3eHZ4jXeCAGOKKtUf6XDGEKnNs+JkpMmfBU45m0zRSfkxmKzWZ6upH
qCPdwgG2coBkXUa0bTgq8RbFsbp717cclQYSvFqJlxKzKchKwShZOdfI5ijG
BoYIKoQ8t4U+r3PCLC7Rp7NONQEMlsGKb7nrGthaSTAOQ7Sr1sayG0KNcaZj
5CSCsBTnYDVHc3V7G7WOHt3fFTw664EXbSjApyGwmEikgeDDLeGIGOJJtUdG
eFLu4gyZiGbNQuVV5SjLyjurQIDIW3gs5uKtWXe1EQFhMUCwqhQv7LBz2XVb
YqgYYTXRJlWH1USaVOF3TylAlAAGFAgSOYhlPBdu5Mi9jQ6JCS1bUcbfmNAx
s5Sjoc9FahfoGhmX/HTC7apkOBXYSVVyeQNVFxb38gY0pLwnPFRYDSITsX03
+Qg9LGL+2sRuHzBYguIS8fFZLRufJaB0m/w7Hr9pjc9UQJA2fhYHYvac000A
BItcys2rEjr6Fbji9pMoGkapQHys7gk8VvdVuoMllSsN4Q4QTNI0StunKotf
Fst04imgSmvNsmTBxS1ZekLUC5PdueEaLzAj0UzByc6ilM6UPFTtjwF7BWHB
6iM+/nw2l2+hYntvXxOKv+Kry4K9ZZIrjYjfUiW+zGxT1sPx98azGia6mOzX
YvlAS3QiudjgM4EBYAw0t/c5885y0I0wsoOTnAUWwWbUikNjFWS8Y9Lr231d
RSDGnCkC0V9sA57GVsQECWa5IuPSD2ktIVzQ06fuVijQ8OAGiKm0btP3vGyM
UI6DU4nFdfjW5607bmjGdejqpbUjhprZOHp0XuNVcKaPWMGBeg5nQ6aPmQwT
2OOB2wp5wxvP7phSYhx25qKSUCnFeO5paXv54+d+Xtx4+rDwlr0HlF6fsur4
NaFQSR2ODzt+Af+y8SoTCykRg6TSxx/2S8kPUiloKGB6x16xcfMPjagUCzaA
nZoShRZi285K/8EG9dTMRIHD03j+/DFjDzS2UibVNjFvDtjil5YelD5mlH/0
rqqZgHBEI9FlDVNKnFUsXFxqSClhyKC1U4I6fhU3Do2nBQsbECm3QHouOvub
FKryYds/iM0DDCHAYRLbyJrVodf65YMHqRQdR/BX4IlBIyrFmO5aVNpQacb2
icDTBdFv0dhKqd0WA9/c6pfxXW995PKizgfuze1gGSCxrO6Np9TbQxTS2+Ks
i6FSKoa2fLAxuLAG1nj6MG7+7v1CQ9F5NSoq/s0/N19PKTkYCFypqfyhsPMz
LIHHGAgUaogqJogu5G+dMPGIXyp6AC3klHHmOgyXg/nXDBHvg1OAEepP4VZA
DFjO2fOTf0J9AC3kHHFq0tso2+7GVsCElixX8vQOGrgtJmjZ5U3Du3ZWCG7f
X7tniC1fbwVa8Zq3QKh5Y2KNdPl5FGgxu+WCjBONIic9R2n7lLIPWy8MU6qa
ZTmuan2lVjremDyK8WWXku+BUV+NEKeDkb1DvLKXTDSF7ZPpSmjwooUnr/qX
+AC9Q6Qc79xxuSmEZWEEsHgo0jOAcWlA4j27r/Bbhg3d3nQSqzPwjftw3zU9
YbXjHo3QtRsqMeP+//HHM9S3j5KK6MTxH6UAYufTm30CGJtS4iOHfxA8JZvQ
s2d/Mon902aiRNoMDywF17vb7RFqiJa2deMZ3e4nkhE+c2hUNqHRo5TNojZu
uPi9rK0eTealOjQZb2UBslsT5JVJoMPMzkaVfLnOi/IzxGWYFFRQqZ3Z4SCV
yyf8sSkgYTEE164quxpAp1VT80RiuLSuD1lGMRpUSRa6E7JK6VtikMuhJsoU
kzVMO6zcaa7UHaTSaYVLGuFWhwYdE5o/T3HozP2s8AcKjC5FRsm65kHOBBkL
pVLJWSniMoqUc+4imU+VXxUQD9+oytOnK5sEDxbCAFRlMYThypW7kgKKDvdF
BMXhA4rH5ZRJH9nlwsKfzBuB67RAOUQLSQy+nJC+v+nwMKl2d7Cl7aygUOhz
YwJjITdEDpenDhZx9nxJYcTk0+p1585D1f7jkNIb/vxSkOuvf7SoP/kDFtug
N3kipfwD13jJsAZElxwTEIZSGQbYiNsvDD4mcZgco1XhGBBqSMEIERbmOlhA
YmEGBNRPqKcgiVI3dIgugYBA1QVy0kGHSwDCRXbd9Fc3GBDiOBkqLmzJ0JhA
TJyQp6QSdZzj8jAgAtNg2NgBUMiK80GBahxnL+DnaitzqYloZ/84Qo5mEojA
UABqYQjrhUkFwc2bNWI2QqiXIEEF1z4Q7YUNfquKHMhmk/f1tGaV8j7UmSLz
fNyydkIXFFD5I0eUcV4/6wY8zerdOMovyTrNlJ9qV7aIYcr7Jbewyb27oghl
pOBSzyimHTDcgkdTpL2IQylW2XIwAFqDKaYvbF8x4I1NyvQwcVTo9YXpRs/u
a5m+ECnlo68WfaUVPedVeOd8/Ot1V+Pr3CSfndYY+ii1jk0bFc9IQscvQqSZ
0r3hWR+vwUPf3sbff11WS2syc5QW1oMHXpUrGLghIZQOSH0pQ7Zy6fAs2oh0
BdQuFmYWccniLTNDNC6Q+8Xu3UfwZ8t7vD29oS8RBDgpEoEbuH8IJJIb5YRO
ShJu3BBLlYI4RJpCak/iHn4Wy6SQvF9I8AVzil/vPVa93weOQgrH+XM/C3As
gySIdV4dTJ0VHdN4MPCTf0mOUUwSOmbyOxYuLm2IEIwbeuDIHe7yhw8ue0lX
EjNKTFQ46f36ZpNNI3xZm/UXxwTJiPlz7VMO3tSXJDm5D4nhEFeXGiIJI8MV
nnSrMhi6XLclA+LIdNYJ/Lbhw3eHQBw1YQXXoZ/1JGFs0r6wETJvmmAX2BI/
JMr6SNWeggTu9e6Cd6t79zTJqGjxENkwjYv2/vv5IRUtc3GJUGszoZWuj2gd
LAO5aEClg3rSUNHa0ZYZFkSB/KE0b6PgvbrSqbmKo0fnMQE/nlTAsfOlMgUj
oJglTM64newrIJFPS6ycPT9pJb4OhViDBinh7xkLzrOhgS5udal6qam7eelO
m36Cg+dLMaqPlLJlxKBNWyqUqQ0edZwsfsAk1TfAuqJmb7vORYXVRNhyIFSi
ihyKGTOLyPsMi6pNrBO5Hp/OOtWQYpfvbVl362rZpAwXvzZjbt3Ga6piAjpH
QzBtS47Qq88WKvY0ObmoetFLt3/Vlhiy1opVAHcJDZK4DTnCsGiI0FLCcO9N
KQRiM3aYmL6/W5c1ZCsZXyJVQLG10mvJy+IQc/WZ4rnvPMMchEFECfAOHqyE
634y82R95ayLWSyt1aK/A2z455u/SXfqJyfjcK3PVnzPsFhReLIuhytIOU1k
a0juWJ5TeLd+Ipo1GoGp0443WLqWFMWyMgVFttu5KKLQKWlTkTZtrRAesAqa
kjpUpCClM6m2AZw/71h1/bBjnKJhwxSf0KQphQ2WLoZiJ2ZXAuyqqh5IQYlo
Bi62ypgPFVbTDIYNltOEbCMV/RdknLhXPxFjKIpiz5Y+/nCDpWOBTseOXRca
s9WwhC3VW0R/ze5b9LcGyMmW1sHZ9PbgrfwFK1cUS7/WT06WqhF8Eoqcc0Im
4q6dyiATfBOQRJCKaHSd92UNVc7Tx9+8WaMiF4Ar3JdFUm/ZxYx64nrX5uxL
0n1Zdr1V2zbGV21rK5BdksiKCpbD6eI+eg6QqPgFKpu40y+YADaFOhSUoBVf
ueIsfzikM3n69BlXPFTLsi3B/SwjlO5E+fm5KCcnB2Vn2dgqpta2Gkx7WAkU
d/XetrWs4dqzRemffqohXS57eMHRCslNtQ9q7ZUZNSylWCUrKnIrZVvlKudB
1lrlXUKF2r5NoYwn9XCSlXJfvkaQGpvQeKFPGzt6Tw1XNog1VXbOW5FNFgxA
WVJZiIWzegstF+whKXjGGq4OWyfGBabquSoqfpWYTsEtjrImRV4wsSGXcJ1Y
WqVUgmIhlRF8IBenL6/CgHrRqtUt+IPt7N/ou5FNFZcuOc3frZhoEMuejFkG
l+akAEDZ/qLcL1IdxawzI1J3EAZPvTaX95dgbdmSM3wujHUlOsNjFbNsyHJm
rQdVVXsFe4kS+SGaa1lMY1hQE1cYoD9osMbASsI9GNdY3PGdadyAdUtUgWz4
vgpBXTmEXzZ2LXW/IceWKnoBjILwOJxcQFUNzGwV0pkBJxi3KkxBaGzYq37j
CjZkaRKKL86OilwulO+00x42HVXUBtYPGywa8a4yh2GCGdNPaXp27ris+G5w
vwH9B7zhAVUuyKVHFk9P90LCBZZb4dFqdC5RHIBMJfIw9uZ+x3TRoSFTZaCA
u3dbw5VZs/oCfwlVpr7rinJYvP91xTKqrsiigTxSSUkDDZRBNFmVg7SD3BE/
LAfIkPLCt+YgmL0R0kkOFTJtdu70OcS267zRjBK7jVPNsDDq0iP/r3ORo5ls
1y0OVC2W8bpLjrDPqLjlt1geoobkjZfpi8SEjDDh2LbzRgBfUTRJyhRvWcjv
AbYC7p0f+1fpMkUQKDjiyAFCmY6dcvtP62FWzTKALwtT+yf+3/QtfRNkeINt
jdmtqam7wb2utbUvW/FaIGz8xQZxXv9vukLR69FjuGqhbIr9mOYOwmz9KHvb
ddUuM127TJZ+13tNFF0/+pCUK88luriEe6i1IpVZJP7+Q7dVMdOwW2tycm+D
b4Wn4amyatVj7Yarft/KoujBHWvts0l462Ky7gQOOt1XK2sHsAXL8OG72dth
6Q22k9JydXfgLuyW6PjpGtVWXtALd7AMItfhR+sKoN7zEAJ+8dM4Bl07rybe
DniXVvAnCxyG7c7eekvxHVLptYaiAYz6CjVqUSL4HDl+DxAWVwE2bv6BvFor
7LENLZjCk/chZIQLBdZIk3JoRmnrSqYey7Sguh8sqFZtdgsdzXKHS0uy1vQW
iLMWTQZM7avVV/xG79ZTsih6hKB4WJwW69L0T4p4RpUYDRFbURGdG6+pAodA
q1Vrv/Mb8CmKSCTUEsxEXwhry9TVrHBahu6E7Gn09XUFYy6ssyUPYf8v1b1Q
6aG94cqHAEQzfRrEUcLarPg+sEBYgMN1ll8nysqABXfrG29sVt0LBZJ3+LaC
RwhkZe9bsKiEjXP4+2CXo6XLyyChBDcMUVYm/5acH2E/WXqXfIQ914qKf1Pw
CIGsrBwhwxCzAfl9ZlKOsJYLtRRsBNY9WihSkpD37bsqSZoUaKZM9O4eiU4S
Oc6xCIGczPEMleXLpd9AgD+2S3ifCXX4ryzczC8io4PkpPXRVAyAfvKUQrLC
ExsiMVirC6ovyrpI1G5D3wfR/1OnHyf+59Yhet/fqWHuzL2JPptzBrok6FNM
tIRAxYEDt5LASOgccW2UO4EGvloeoMgl/cqr/5Qz1eJPQdF9hVsTsncY9Jro
PftV0sdrxJ8aaiCrNcQLRpS/nqM8pyGO82Dep+fsbmXU2c0doZRID+R6rRlt
UEI23DHNHSm1LiKew6UdOKUl3qsBJGtAwE4sqq0uRU6HAznYJytdLgV7BnJk
F/ndgZoI+d+E0XFDQmRikdcl+2MSbOnIhg3ARt0YcQlWXLq5fjd1J8dnVIKG
RKbEENDAN8lcRHWKyczf/AdXOQhfKHfB1JYTzn8OsEdrS1nmYC2LUGkZlH+S
Lb14yx2ypXjkl0Nwge4b6+8fZC41lyMFl4fsUjOiW1COOnaa6QunHQZeVi/H
GdeS5vvNKNYHzqg3S0nI7uGNq5ZnUXy2VmMf8t+Vn5vyrZH++1+o1fN36W//
H0XkX3I=\
\>"]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Controlled FDR", "Section",
 CellChangeTimes->{3.562800790854816*^9}],

Cell[CellGroupData[{

Cell["Functions", "Subsubsection",
 CellChangeTimes->{{3.562805192630032*^9, 3.56280519352254*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ControlledFDR", "[", 
    RowBox[{"sectionPvalues_", ",", "print_", ",", "countyIDs_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "dim", ",", "T", ",", "alpha", ",", "newAlpha", ",", "stVals", ",", 
       "sts", ",", "stData", ",", "stDataSorted", ",", "d", ",", "i", ",", 
       "desicion", ",", "x2b2TableExtended", ",", "rejecitonPositions", ",", 
       "labels"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"dim", "=", 
       RowBox[{"Dimensions", "[", "sectionPvalues", "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"T", "=", 
       RowBox[{
        RowBox[{"dim", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "*", 
        RowBox[{"dim", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"alpha", "=", "0.05"}], ";", "\[IndentingNewLine]", 
      RowBox[{"newAlpha", "=", 
       RowBox[{"alpha", "/", "T"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"stVals", "=", 
       RowBox[{"St", "[", 
        RowBox[{"alpha", ",", "T"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"stData", "=", 
       RowBox[{"Transpose", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Flatten", "[", "sectionPvalues", "]"}], ",", 
          RowBox[{"Range", "[", "T", "]"}]}], "}"}], "]"}]}], ";", 
      RowBox[{"stDataSorted", "=", 
       RowBox[{"SortBy", "[", 
        RowBox[{"stData", ",", "First"}], "]"}]}], ";", "\[IndentingNewLine]",
       "\[IndentingNewLine]", 
      RowBox[{"d", "=", "0"}], ";", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"i", "=", "0"}], ",", 
        RowBox[{"i", "\[LessEqual]", " ", 
         RowBox[{"T", "-", "1"}]}], ",", 
        RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"stDataSorted", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{"i", "+", "1"}], ",", "1"}], "]"}], "]"}], "<", 
            RowBox[{"stVals", "[", 
             RowBox[{"[", 
              RowBox[{"i", "+", "1"}], "]"}], "]"}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"d", "=", 
             RowBox[{"i", "+", "1"}]}], ";"}]}], "\[IndentingNewLine]", "]"}],
          ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
      "\n", 
      RowBox[{"desicion", "=", 
       RowBox[{"ReplacePart", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{"\"\<Accepted\>\"", ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "T"}], "}"}]}], "]"}], ",", 
         RowBox[{
          RowBox[{"Partition", "[", 
           RowBox[{
            RowBox[{"Range", "[", "d", "]"}], ",", "1"}], "]"}], "\[Rule]", 
          "\"\<Rejected\>\""}]}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"labels", "=", 
       RowBox[{"{", 
        RowBox[{
        "\"\<d\>\"", ",", "\"\<PValue\>\"", ",", "\"\<ID\>\"", ",", 
         "\"\<St\>\"", ",", "\"\<Decision\>\""}], "}"}]}], ";", "\n", 
      RowBox[{"x2b2TableExtended", "=", 
       RowBox[{"Prepend", "[", 
        RowBox[{
         RowBox[{"Transpose", "[", 
          RowBox[{"Join", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"Range", "[", "T", "]"}], "}"}], ",", 
            RowBox[{"Transpose", "[", "stDataSorted", "]"}], ",", 
            RowBox[{"{", "stVals", "}"}], ",", 
            RowBox[{"{", "desicion", "}"}]}], "]"}], "]"}], ",", "labels"}], 
        "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"rejecitonPositions", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Coord", "[", 
           RowBox[{"#", ",", 
            RowBox[{"dim", "[", 
             RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "&"}], ",", 
         RowBox[{"Pick", "[", 
          RowBox[{
           RowBox[{"stDataSorted", "[", 
            RowBox[{"[", 
             RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", "desicion", ",", 
           "\"\<Rejected\>\""}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]",
       "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{"print", ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Print", "[", 
          RowBox[{"\"\<d = \>\"", ",", "d"}], "]"}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"Print", "[", 
          RowBox[{"TableForm", "[", "x2b2TableExtended", "]"}], "]"}], 
         ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
      "rejecitonPositions"}]}], "\[IndentingNewLine]", "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5627818368430977`*^9, 3.562781849236333*^9}, {
   3.562782042138674*^9, 3.5627821983203697`*^9}, {3.562782252348104*^9, 
   3.5627823471405153`*^9}, {3.562782381146879*^9, 3.5627824126611633`*^9}, {
   3.562782448263976*^9, 3.5627825172570763`*^9}, {3.562782557188892*^9, 
   3.562782559713735*^9}, {3.56278263118122*^9, 3.562782632517017*^9}, {
   3.562782667978711*^9, 3.562782689735962*^9}, {3.562785290742525*^9, 
   3.5627853849460497`*^9}, {3.5627855336710176`*^9, 3.562785679653572*^9}, 
   3.562785719747394*^9, {3.562785756989327*^9, 3.5627859608920507`*^9}, {
   3.562786241195643*^9, 3.562786371367024*^9}, {3.562786404335329*^9, 
   3.562786406336515*^9}, {3.5628052988318863`*^9, 3.562805303294726*^9}, {
   3.5628053426822157`*^9, 3.562805361229748*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"StolenVotes", "[", 
   RowBox[{"precinct_", ",", "stolenPer_", ",", "favCand_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "stolen", ",", "n1", ",", "n2", ",", "lossers", ",", "losserCounts", ",",
       "winnerCount", ",", "nCands", ",", "outCounts", ",", "counts", ",", 
      "tvotes"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"tvotes", "=", 
      RowBox[{"precinct", "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"counts", "=", 
      RowBox[{"precinct", "[", 
       RowBox[{"[", 
        RowBox[{"3", ";;"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"nCands", "=", 
      RowBox[{"Length", "[", "counts", "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"stolen", "=", 
      RowBox[{"Round", "[", 
       RowBox[{"tvotes", "*", "stolenPer"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"n1", "=", 
      RowBox[{"RandomInteger", "[", 
       RowBox[{"{", "stolen", "}"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"n2", "=", 
      RowBox[{"stolen", "-", "n1"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"lossers", "=", 
      RowBox[{"Complement", "[", 
       RowBox[{
        RowBox[{"Range", "[", "nCands", "]"}], ",", 
        RowBox[{"{", "favCand", "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
     
     RowBox[{"losserCounts", "=", 
      RowBox[{"MapThread", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"counts", "[", 
              RowBox[{"[", "#1", "]"}], "]"}], "-", "#2"}], "<", "0"}], ",", 
           "0", ",", 
           RowBox[{
            RowBox[{"counts", "[", 
             RowBox[{"[", "#1", "]"}], "]"}], "-", "#2"}]}], "]"}], "&"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{"lossers", ",", 
          RowBox[{"{", 
           RowBox[{"n1", ",", "n2"}], "}"}]}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"winnerCount", "=", 
      RowBox[{
       RowBox[{"counts", "[", 
        RowBox[{"[", "favCand", "]"}], "]"}], "+", "stolen"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"outCounts", "=", 
      RowBox[{"Table", "[", 
       RowBox[{"0", ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "nCands"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"outCounts", "[", 
       RowBox[{"[", "favCand", "]"}], "]"}], "=", "winnerCount"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"outCounts", "[", 
       RowBox[{"[", "lossers", "]"}], "]"}], "=", "losserCounts"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"precinct", "[", 
        RowBox[{"[", 
         RowBox[{";;", "2"}], "]"}], "]"}], ",", "outCounts"}], "]"}]}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.562803700754567*^9, 3.5628038003032427`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Work", "Subsubsection",
 CellChangeTimes->{{3.562805212196064*^9, 3.562805212635953*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"rawStateData", "=", 
    RowBox[{"Import", "[", 
     RowBox[{
      RowBox[{"nd", "<>", "\"\<states//Alaska1.txt\>\""}], ",", 
      "\"\<Table\>\""}], "]"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Serial", " ", "N"}], ",", " ", "Population", ",", " ", 
    RowBox[{"County", " ", "ID"}], ",", " ", 
    RowBox[{"Candidate", " ", "Votes"}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"delData", "=", 
   RowBox[{"rawStateData", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", 
      RowBox[{"2", ";;"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"delData", "[", 
  RowBox[{"[", "1", "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.562777333433416*^9, 3.562777419597733*^9}, {
   3.562777493911627*^9, 3.5627774967666073`*^9}, {3.562777534968513*^9, 
   3.562777559161928*^9}, {3.562786916666189*^9, 3.562786938636867*^9}, 
   3.562787244673441*^9, {3.5627873243179207`*^9, 3.562787326331769*^9}, {
   3.5627873992538643`*^9, 3.562787431958418*^9}, {3.56278771633575*^9, 
   3.562787717925096*^9}, {3.562788338707715*^9, 3.562788341267947*^9}, {
   3.562788895215905*^9, 3.562788897486322*^9}, {3.562799477768091*^9, 
   3.562799482593994*^9}, {3.562800938404037*^9, 3.562800940067012*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"861", ",", "13", ",", "267", ",", "346", ",", "248"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.562777559271891*^9, 3.5627860536360407`*^9, 3.5627869429969587`*^9, 
   3.5627872452913437`*^9, 3.562787326994155*^9, 3.5627874010212708`*^9, 
   3.562787432439156*^9, {3.5627877185108767`*^9, 3.562787740161044*^9}, 
   3.562788341799156*^9, 3.562788898035321*^9, 3.562799483288665*^9, 
   3.5628008687397346`*^9, 3.562800941130333*^9, {3.562804164624658*^9, 
   3.562804167910907*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"transferProportion", "=", ".5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"favoredCandidate", "=", "3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fips", "=", 
   RowBox[{"delData", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 

 RowBox[{
  RowBox[{
   RowBox[{"countyIDs", "=", 
    RowBox[{"Tally", "[", "fips", "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"fraudCounties", "=", 
    RowBox[{
     RowBox[{"SortBy", "[", 
      RowBox[{"countyIDs", ",", "Last"}], "]"}], "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "1"}], ";;"}], ",", "1"}], "]"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"precinctFraudPos", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Position", "[", 
         RowBox[{"fips", ",", "#"}], "]"}], "&"}], ",", "fraudCounties"}], 
      "]"}], ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"delDataMod", "=", 
    RowBox[{"MapAt", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"StolenVotes", "[", 
        RowBox[{"#", ",", "transferProportion", ",", "favoredCandidate"}], 
        "]"}], "&"}], ",", "delData", ",", "precinctFraudPos"}], "]"}]}], 
   ";"}], "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{"countyVotes", "=", 
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Cases", "[", 
       RowBox[{"delDataMod", ",", 
        RowBox[{"{", 
         RowBox[{"_", ",", "#", ",", "_", ",", "_", ",", "_"}], "}"}]}], 
       "]"}], "&"}], ",", 
     RowBox[{"countyIDs", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"countyPvalues", "=", 
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Map", "[", 
       RowBox[{"PValue", ",", 
        RowBox[{"Map", "[", 
         RowBox[{"X2B2", ",", 
          RowBox[{
           RowBox[{"Transpose", "[", "#", "]"}], "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"-", "3"}], ";;"}], "]"}], "]"}]}], "]"}]}], "]"}], 
      "&"}], ",", "countyVotes"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"fails", "=", 
   RowBox[{"ControlledFDR", "[", 
    RowBox[{"countyPvalues", ",", "False", ",", "countyIDs"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", "fails", "\[IndentingNewLine]", 
 RowBox[{"countyIDs", "[", 
  RowBox[{"[", 
   RowBox[{
    RowBox[{"fails", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", "1"}], "]"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.562803161129966*^9, 3.5628031942414303`*^9}, {
  3.562803317374773*^9, 3.562803363608489*^9}, {3.562803932792798*^9, 
  3.562803933080729*^9}, {3.562803970099246*^9, 3.562803970345848*^9}, {
  3.562804185593235*^9, 3.562804201488668*^9}, {3.562804868309445*^9, 
  3.562804868708728*^9}, {3.562805044834838*^9, 3.5628051063800592`*^9}, {
  3.5628052510397587`*^9, 3.562805252139934*^9}, {3.562805288360776*^9, 
  3.5628052911770773`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"3", ",", "1"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.562785971094013*^9, 3.5627859734375134`*^9}, 
   3.562786033822399*^9, 3.562786377824563*^9, 3.562786416149588*^9, 
   3.562787265278843*^9, 3.56278743610458*^9, 3.562787550041202*^9, 
   3.562787648292643*^9, 3.562787683458054*^9, 3.5627877426336718`*^9, 
   3.562787778998393*^9, 3.562787823180657*^9, {3.5627883438617268`*^9, 
   3.562788363594759*^9}, {3.562788900187323*^9, 3.56278893151383*^9}, {
   3.5627994854568*^9, 3.562799497680187*^9}, {3.562799580588917*^9, 
   3.5627995833075237`*^9}, {3.562803913809763*^9, 3.562803936629233*^9}, {
   3.562803996681649*^9, 3.5628040120803432`*^9}, {3.562804064302269*^9, 
   3.562804076448876*^9}, 3.562804148547641*^9, {3.562804183206607*^9, 
   3.56280420646314*^9}, 3.562804873937566*^9, {3.5628050552183523`*^9, 
   3.562805106794014*^9}, 3.5628052525956*^9}],

Cell[BoxData[
 RowBox[{"{", "20", "}"}]], "Output",
 CellChangeTimes->{{3.562785971094013*^9, 3.5627859734375134`*^9}, 
   3.562786033822399*^9, 3.562786377824563*^9, 3.562786416149588*^9, 
   3.562787265278843*^9, 3.56278743610458*^9, 3.562787550041202*^9, 
   3.562787648292643*^9, 3.562787683458054*^9, 3.5627877426336718`*^9, 
   3.562787778998393*^9, 3.562787823180657*^9, {3.5627883438617268`*^9, 
   3.562788363594759*^9}, {3.562788900187323*^9, 3.56278893151383*^9}, {
   3.5627994854568*^9, 3.562799497680187*^9}, {3.562799580588917*^9, 
   3.5627995833075237`*^9}, {3.562803913809763*^9, 3.562803936629233*^9}, {
   3.562803996681649*^9, 3.5628040120803432`*^9}, {3.562804064302269*^9, 
   3.562804076448876*^9}, 3.562804148547641*^9, {3.562804183206607*^9, 
   3.56280420646314*^9}, 3.562804873937566*^9, {3.5628050552183523`*^9, 
   3.562805106794014*^9}, 3.562805252598568*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"n", " ", "n"}]], "Input",
 CellChangeTimes->{{3.562804678667736*^9, 3.56280467884988*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Delaware 1", "Subsubsection",
 CellChangeTimes->{{3.562786899208034*^9, 3.5627869005398493`*^9}, {
  3.5627872385026417`*^9, 3.562787240100645*^9}, {3.562787300840465*^9, 
  3.5627873025822372`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"d = \"\>", "\[InvisibleSpace]", "1"}],
  SequenceForm["d = ", 1],
  Editable->False]], "Print",
 CellChangeTimes->{3.562785973431041*^9, 3.562786033818303*^9, 
  3.5627863778171177`*^9, 3.562786416145252*^9}],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"d\"\>", "\<\"PValue\"\>", "\<\"ID\"\>", "\<\"St\"\>", "\<\"Decision\
\"\>"},
    {"1", "0.003897217964203662`", "9", 
     "0.005555555555555556`", "\<\"Rejected\"\>"},
    {"2", "0.015315560672055016`", "4", 
     "0.011111111111111112`", "\<\"Accepted\"\>"},
    {"3", "0.11636179106963009`", "8", 
     "0.01666666666666667`", "\<\"Accepted\"\>"},
    {"4", "0.17169393573952454`", "7", 
     "0.022222222222222223`", "\<\"Accepted\"\>"},
    {"5", "0.2570713676255781`", "5", 
     "0.027777777777777776`", "\<\"Accepted\"\>"},
    {"6", "0.2689841546732428`", "6", 
     "0.03333333333333334`", "\<\"Accepted\"\>"},
    {"7", "0.5405634415184344`", "2", 
     "0.03888888888888889`", "\<\"Accepted\"\>"},
    {"8", "0.713153013986929`", "3", 
     "0.044444444444444446`", "\<\"Accepted\"\>"},
    {"9", "0.8397699887489789`", "1", 
     "0.049999999999999996`", "\<\"Accepted\"\>"}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{3.562785973431041*^9, 3.562786033818303*^9, 
  3.5627863778171177`*^9, 3.5627864161470623`*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Delaware 2", "Subsubsection",
 CellChangeTimes->{{3.56278730655869*^9, 3.562787310086554*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"d = \"\>", "\[InvisibleSpace]", "1"}],
  SequenceForm["d = ", 1],
  Editable->False]], "Print",
 CellChangeTimes->{3.562787265274007*^9}],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"d\"\>", "\<\"PValue\"\>", "\<\"ID\"\>", "\<\"St\"\>", "\<\"Decision\
\"\>"},
    {"1", "0.001861415657789798`", "4", 
     "0.005555555555555556`", "\<\"Rejected\"\>"},
    {"2", "0.05549563461246911`", "6", 
     "0.011111111111111112`", "\<\"Accepted\"\>"},
    {"3", "0.13719961159449778`", "9", 
     "0.01666666666666667`", "\<\"Accepted\"\>"},
    {"4", "0.14873456910415692`", "7", 
     "0.022222222222222223`", "\<\"Accepted\"\>"},
    {"5", "0.19566972449745978`", "1", 
     "0.027777777777777776`", "\<\"Accepted\"\>"},
    {"6", "0.2794945520698397`", "3", 
     "0.03333333333333334`", "\<\"Accepted\"\>"},
    {"7", "0.3639948024259283`", "8", 
     "0.03888888888888889`", "\<\"Accepted\"\>"},
    {"8", "0.3925087505605721`", "2", 
     "0.044444444444444446`", "\<\"Accepted\"\>"},
    {"9", "0.7621016975354646`", "5", 
     "0.049999999999999996`", "\<\"Accepted\"\>"}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{3.562787265276684*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["North Dakota 1", "Subsubsection",
 CellChangeTimes->{{3.5627876956986*^9, 3.562787697584318*^9}, {
  3.562788333942893*^9, 3.5627883342544413`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"d = \"\>", "\[InvisibleSpace]", "1"}],
  SequenceForm["d = ", 1],
  Editable->False]], "Print",
 CellChangeTimes->{3.562787683433148*^9}],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"d\"\>", "\<\"PValue\"\>", "\<\"ID\"\>", "\<\"St\"\>", "\<\"Decision\
\"\>"},
    {"1", "0.00002255851036722256`", "57", 
     "0.0003144654088050315`", "\<\"Rejected\"\>"},
    {"2", "0.004769030493838415`", "133", 
     "0.000628930817610063`", "\<\"Accepted\"\>"},
    {"3", "0.02631095381473994`", "18", 
     "0.0009433962264150946`", "\<\"Accepted\"\>"},
    {"4", "0.029080686191785818`", "54", 
     "0.001257861635220126`", "\<\"Accepted\"\>"},
    {"5", "0.04012880881968921`", "94", 
     "0.0015723270440251573`", "\<\"Accepted\"\>"},
    {"6", "0.04183389809252937`", "30", 
     "0.0018867924528301891`", "\<\"Accepted\"\>"},
    {"7", "0.042064835142731224`", "26", 
     "0.0022012578616352205`", "\<\"Accepted\"\>"},
    {"8", "0.04709405296472005`", "102", 
     "0.002515723270440252`", "\<\"Accepted\"\>"},
    {"9", "0.05202838165245609`", "53", 
     "0.0028301886792452833`", "\<\"Accepted\"\>"},
    {"10", "0.06867411408416531`", "1", 
     "0.0031446540880503146`", "\<\"Accepted\"\>"},
    {"11", "0.07093780125396265`", "114", 
     "0.0034591194968553464`", "\<\"Accepted\"\>"},
    {"12", "0.08698699820234178`", "140", 
     "0.0037735849056603783`", "\<\"Accepted\"\>"},
    {"13", "0.11410768664844899`", "110", 
     "0.004088050314465409`", "\<\"Accepted\"\>"},
    {"14", "0.12638569755871704`", "91", 
     "0.004402515723270441`", "\<\"Accepted\"\>"},
    {"15", "0.1318758204402694`", "99", 
     "0.004716981132075472`", "\<\"Accepted\"\>"},
    {"16", "0.13566436546653912`", "42", 
     "0.005031446540880504`", "\<\"Accepted\"\>"},
    {"17", "0.13802412330941455`", "9", 
     "0.005345911949685535`", "\<\"Accepted\"\>"},
    {"18", "0.15059993054680743`", "89", 
     "0.0056603773584905665`", "\<\"Accepted\"\>"},
    {"19", "0.15256168045945362`", "143", 
     "0.005974842767295598`", "\<\"Accepted\"\>"},
    {"20", "0.15654571486136984`", "156", 
     "0.006289308176100629`", "\<\"Accepted\"\>"},
    {"21", "0.1614818468009871`", "101", 
     "0.006603773584905661`", "\<\"Accepted\"\>"},
    {"22", "0.16190116728204737`", "115", 
     "0.006918238993710693`", "\<\"Accepted\"\>"},
    {"23", "0.1763275643265747`", "11", 
     "0.007232704402515724`", "\<\"Accepted\"\>"},
    {"24", "0.18013033235801254`", "2", 
     "0.0075471698113207565`", "\<\"Accepted\"\>"},
    {"25", "0.18261196362640636`", "105", 
     "0.007861635220125786`", "\<\"Accepted\"\>"},
    {"26", "0.20330298423578091`", "129", 
     "0.008176100628930818`", "\<\"Accepted\"\>"},
    {"27", "0.20846604620001521`", "47", 
     "0.00849056603773585`", "\<\"Accepted\"\>"},
    {"28", "0.210742113053176`", "39", 
     "0.008805031446540882`", "\<\"Accepted\"\>"},
    {"29", "0.21830414672310627`", "5", 
     "0.009119496855345913`", "\<\"Accepted\"\>"},
    {"30", "0.22176373859677997`", "147", 
     "0.009433962264150945`", "\<\"Accepted\"\>"},
    {"31", "0.22388832122812413`", "60", 
     "0.009748427672955976`", "\<\"Accepted\"\>"},
    {"32", "0.22733697046241372`", "70", 
     "0.010062893081761008`", "\<\"Accepted\"\>"},
    {"33", "0.23011233810896337`", "144", 
     "0.010377358490566039`", "\<\"Accepted\"\>"},
    {"34", "0.24313704924034624`", "85", 
     "0.01069182389937107`", "\<\"Accepted\"\>"},
    {"35", "0.2442061465528333`", "74", 
     "0.011006289308176102`", "\<\"Accepted\"\>"},
    {"36", "0.2488146989420926`", "79", 
     "0.011320754716981133`", "\<\"Accepted\"\>"},
    {"37", "0.25457749753579695`", "139", 
     "0.011635220125786164`", "\<\"Accepted\"\>"},
    {"38", "0.2553320369842549`", "34", 
     "0.011949685534591196`", "\<\"Accepted\"\>"},
    {"39", "0.2631958287526224`", "150", 
     "0.012264150943396229`", "\<\"Accepted\"\>"},
    {"40", "0.2725053612818848`", "121", 
     "0.012578616352201259`", "\<\"Accepted\"\>"},
    {"41", "0.27667657099753834`", "7", 
     "0.012893081761006292`", "\<\"Accepted\"\>"},
    {"42", "0.27698102736847696`", "58", 
     "0.013207547169811321`", "\<\"Accepted\"\>"},
    {"43", "0.2816105421540226`", "78", 
     "0.013522012578616353`", "\<\"Accepted\"\>"},
    {"44", "0.29215643303643385`", "49", 
     "0.013836477987421386`", "\<\"Accepted\"\>"},
    {"45", "0.29663879998979453`", "136", 
     "0.014150943396226415`", "\<\"Accepted\"\>"},
    {"46", "0.2967332744405015`", "158", 
     "0.014465408805031449`", "\<\"Accepted\"\>"},
    {"47", "0.2993261807847506`", "93", 
     "0.01477987421383648`", "\<\"Accepted\"\>"},
    {"48", "0.300286317879488`", "21", 
     "0.015094339622641513`", "\<\"Accepted\"\>"},
    {"49", "0.30339822583055864`", "148", 
     "0.015408805031446543`", "\<\"Accepted\"\>"},
    {"50", "0.3171674685641037`", "48", 
     "0.015723270440251572`", "\<\"Accepted\"\>"},
    {"51", "0.3176085977402796`", "51", 
     "0.016037735849056607`", "\<\"Accepted\"\>"},
    {"52", "0.32798077899826716`", "67", 
     "0.016352201257861635`", "\<\"Accepted\"\>"},
    {"53", "0.33287844187722887`", "36", 
     "0.01666666666666667`", "\<\"Accepted\"\>"},
    {"54", "0.33476941719827097`", "119", 
     "0.0169811320754717`", "\<\"Accepted\"\>"},
    {"55", "0.3433298947374266`", "137", 
     "0.01729559748427673`", "\<\"Accepted\"\>"},
    {"56", "0.34366272554860355`", "97", 
     "0.017610062893081764`", "\<\"Accepted\"\>"},
    {"57", "0.34431224729988313`", "44", 
     "0.017924528301886795`", "\<\"Accepted\"\>"},
    {"58", "0.3483312162549874`", "59", 
     "0.018238993710691827`", "\<\"Accepted\"\>"},
    {"59", "0.35353814300319375`", "19", 
     "0.018553459119496858`", "\<\"Accepted\"\>"},
    {"60", "0.36662188587243133`", "64", 
     "0.01886792452830189`", "\<\"Accepted\"\>"},
    {"61", "0.36776799966515533`", "15", 
     "0.01918238993710692`", "\<\"Accepted\"\>"},
    {"62", "0.38580869256662864`", "29", 
     "0.019496855345911952`", "\<\"Accepted\"\>"},
    {"63", "0.386122207070022`", "103", 
     "0.019811320754716984`", "\<\"Accepted\"\>"},
    {"64", "0.3888094270306672`", "37", 
     "0.020125786163522015`", "\<\"Accepted\"\>"},
    {"65", "0.3902230866866822`", "135", 
     "0.020440251572327046`", "\<\"Accepted\"\>"},
    {"66", "0.39253280647639677`", "66", 
     "0.020754716981132078`", "\<\"Accepted\"\>"},
    {"67", "0.3988749084287907`", "128", 
     "0.02106918238993711`", "\<\"Accepted\"\>"},
    {"68", "0.4122571849995427`", "122", 
     "0.02138364779874214`", "\<\"Accepted\"\>"},
    {"69", "0.41645985301415905`", "113", 
     "0.021698113207547172`", "\<\"Accepted\"\>"},
    {"70", "0.4238189885018005`", "41", 
     "0.022012578616352203`", "\<\"Accepted\"\>"},
    {"71", "0.4264170881106261`", "107", 
     "0.022327044025157235`", "\<\"Accepted\"\>"},
    {"72", "0.4278150529512799`", "96", 
     "0.022641509433962266`", "\<\"Accepted\"\>"},
    {"73", "0.42864499029145053`", "13", 
     "0.022955974842767297`", "\<\"Accepted\"\>"},
    {"74", "0.43461014978733514`", "98", 
     "0.02327044025157233`", "\<\"Accepted\"\>"},
    {"75", "0.43596630489591137`", "138", 
     "0.02358490566037736`", "\<\"Accepted\"\>"},
    {"76", "0.5072226414195123`", "108", 
     "0.02389937106918239`", "\<\"Accepted\"\>"},
    {"77", "0.5102179654491715`", "159", 
     "0.024213836477987423`", "\<\"Accepted\"\>"},
    {"78", "0.5117883668180918`", "123", 
     "0.024528301886792458`", "\<\"Accepted\"\>"},
    {"79", "0.5140715223546373`", "157", 
     "0.024842767295597486`", "\<\"Accepted\"\>"},
    {"80", "0.5145501061685732`", "82", 
     "0.025157232704402517`", "\<\"Accepted\"\>"},
    {"81", "0.518456530508334`", "126", 
     "0.02547169811320755`", "\<\"Accepted\"\>"},
    {"82", "0.5297145518712612`", "87", 
     "0.025786163522012583`", "\<\"Accepted\"\>"},
    {"83", "0.5342920533048231`", "80", 
     "0.026100628930817615`", "\<\"Accepted\"\>"},
    {"84", "0.5351336303129922`", "124", 
     "0.026415094339622643`", "\<\"Accepted\"\>"},
    {"85", "0.5389971951180853`", "38", 
     "0.026729559748427674`", "\<\"Accepted\"\>"},
    {"86", "0.5417104203263903`", "76", 
     "0.027044025157232705`", "\<\"Accepted\"\>"},
    {"87", "0.5453665364289215`", "112", 
     "0.02735849056603774`", "\<\"Accepted\"\>"},
    {"88", "0.5457310602719884`", "145", 
     "0.02767295597484277`", "\<\"Accepted\"\>"},
    {"89", "0.5491325598701002`", "117", 
     "0.027987421383647803`", "\<\"Accepted\"\>"},
    {"90", "0.5551248369419484`", "86", 
     "0.02830188679245283`", "\<\"Accepted\"\>"},
    {"91", "0.5559950461457737`", "153", 
     "0.028616352201257862`", "\<\"Accepted\"\>"},
    {"92", "0.5600379739211019`", "125", 
     "0.028930817610062897`", "\<\"Accepted\"\>"},
    {"93", "0.5655857757235858`", "12", 
     "0.02924528301886793`", "\<\"Accepted\"\>"},
    {"94", "0.5799947393770682`", "72", 
     "0.02955974842767296`", "\<\"Accepted\"\>"},
    {"95", "0.597919982287715`", "152", 
     "0.029874213836477988`", "\<\"Accepted\"\>"},
    {"96", "0.5988248594782983`", "83", 
     "0.030188679245283026`", "\<\"Accepted\"\>"},
    {"97", "0.6001418605245792`", "50", 
     "0.030503144654088054`", "\<\"Accepted\"\>"},
    {"98", "0.6038280700463712`", "81", 
     "0.030817610062893085`", "\<\"Accepted\"\>"},
    {"99", "0.6050960398268835`", "130", 
     "0.031132075471698117`", "\<\"Accepted\"\>"},
    {"100", "0.6083291943343961`", "33", 
     "0.031446540880503145`", "\<\"Accepted\"\>"},
    {"101", "0.6092482435587028`", "100", 
     "0.03176100628930818`", "\<\"Accepted\"\>"},
    {"102", "0.6167745750957713`", "95", 
     "0.032075471698113214`", "\<\"Accepted\"\>"},
    {"103", "0.6279639300377102`", "61", 
     "0.032389937106918246`", "\<\"Accepted\"\>"},
    {"104", "0.6325026370724001`", "132", 
     "0.03270440251572327`", "\<\"Accepted\"\>"},
    {"105", "0.6329966330758277`", "131", 
     "0.0330188679245283`", "\<\"Accepted\"\>"},
    {"106", "0.644586617983024`", "62", 
     "0.03333333333333334`", "\<\"Accepted\"\>"},
    {"107", "0.6456221694892896`", "6", 
     "0.03364779874213837`", "\<\"Accepted\"\>"},
    {"108", "0.6483830230122649`", "65", 
     "0.0339622641509434`", "\<\"Accepted\"\>"},
    {"109", "0.6567815830053438`", "63", 
     "0.034276729559748434`", "\<\"Accepted\"\>"},
    {"110", "0.6568181428724761`", "109", 
     "0.03459119496855346`", "\<\"Accepted\"\>"},
    {"111", "0.6576249409348272`", "10", 
     "0.0349056603773585`", "\<\"Accepted\"\>"},
    {"112", "0.6610036437031085`", "46", 
     "0.03522012578616353`", "\<\"Accepted\"\>"},
    {"113", "0.6671881169907363`", "116", 
     "0.03553459119496856`", "\<\"Accepted\"\>"},
    {"114", "0.6691879508608858`", "32", 
     "0.03584905660377359`", "\<\"Accepted\"\>"},
    {"115", "0.6703115954549241`", "111", 
     "0.036163522012578615`", "\<\"Accepted\"\>"},
    {"116", "0.6838495316357567`", "31", 
     "0.036477987421383654`", "\<\"Accepted\"\>"},
    {"117", "0.68960733802395`", "155", 
     "0.036792452830188685`", "\<\"Accepted\"\>"},
    {"118", "0.6974138493717571`", "92", 
     "0.037106918238993716`", "\<\"Accepted\"\>"},
    {"119", "0.6977186054649607`", "52", 
     "0.03742138364779875`", "\<\"Accepted\"\>"},
    {"120", "0.7068282973592328`", "77", 
     "0.03773584905660378`", "\<\"Accepted\"\>"},
    {"121", "0.7092189629413115`", "142", 
     "0.03805031446540881`", "\<\"Accepted\"\>"},
    {"122", "0.7106347261343666`", "35", 
     "0.03836477987421384`", "\<\"Accepted\"\>"},
    {"123", "0.7122193982629514`", "24", 
     "0.03867924528301887`", "\<\"Accepted\"\>"},
    {"124", "0.7229660172053423`", "104", 
     "0.038993710691823905`", "\<\"Accepted\"\>"},
    {"125", "0.7355723229585052`", "3", 
     "0.039308176100628936`", "\<\"Accepted\"\>"},
    {"126", "0.735831139674969`", "154", 
     "0.03962264150943397`", "\<\"Accepted\"\>"},
    {"127", "0.7366183143736271`", "146", 
     "0.039937106918239`", "\<\"Accepted\"\>"},
    {"128", "0.7394269256669413`", "55", 
     "0.04025157232704403`", "\<\"Accepted\"\>"},
    {"129", "0.7454865985332331`", "17", 
     "0.04056603773584906`", "\<\"Accepted\"\>"},
    {"130", "0.7624846712375548`", "75", 
     "0.04088050314465409`", "\<\"Accepted\"\>"},
    {"131", "0.7640934121741932`", "56", 
     "0.041194968553459124`", "\<\"Accepted\"\>"},
    {"132", "0.7701434579627697`", "14", 
     "0.041509433962264156`", "\<\"Accepted\"\>"},
    {"133", "0.7707706950374321`", "23", 
     "0.04182389937106919`", "\<\"Accepted\"\>"},
    {"134", "0.7755915290156334`", "16", 
     "0.04213836477987422`", "\<\"Accepted\"\>"},
    {"135", "0.7801175734308483`", "8", 
     "0.04245283018867925`", "\<\"Accepted\"\>"},
    {"136", "0.8008307536889758`", "88", 
     "0.04276729559748428`", "\<\"Accepted\"\>"},
    {"137", "0.8134954833353908`", "43", 
     "0.04308176100628931`", "\<\"Accepted\"\>"},
    {"138", "0.8165141174954429`", "22", 
     "0.043396226415094344`", "\<\"Accepted\"\>"},
    {"139", "0.8179280773834499`", "149", 
     "0.043710691823899375`", "\<\"Accepted\"\>"},
    {"140", "0.8257458669305152`", "40", 
     "0.04402515723270441`", "\<\"Accepted\"\>"},
    {"141", "0.8316762212168942`", "127", 
     "0.04433962264150944`", "\<\"Accepted\"\>"},
    {"142", "0.8378351090697183`", "45", 
     "0.04465408805031447`", "\<\"Accepted\"\>"},
    {"143", "0.839469803737537`", "118", 
     "0.0449685534591195`", "\<\"Accepted\"\>"},
    {"144", "0.8465218660078184`", "120", 
     "0.04528301886792453`", "\<\"Accepted\"\>"},
    {"145", "0.863954216872367`", "68", 
     "0.045597484276729564`", "\<\"Accepted\"\>"},
    {"146", "0.8651346665597088`", "27", 
     "0.045911949685534595`", "\<\"Accepted\"\>"},
    {"147", "0.8660526008465222`", "69", 
     "0.046226415094339626`", "\<\"Accepted\"\>"},
    {"148", "0.8792186314816017`", "28", 
     "0.04654088050314466`", "\<\"Accepted\"\>"},
    {"149", "0.8808160574368815`", "20", 
     "0.04685534591194969`", "\<\"Accepted\"\>"},
    {"150", "0.881647567137344`", "151", 
     "0.04716981132075472`", "\<\"Accepted\"\>"},
    {"151", "0.8844602699641742`", "106", 
     "0.04748427672955976`", "\<\"Accepted\"\>"},
    {"152", "0.8880370771526865`", "90", 
     "0.04779874213836478`", "\<\"Accepted\"\>"},
    {"153", "0.9011140808085505`", "134", 
     "0.048113207547169815`", "\<\"Accepted\"\>"},
    {"154", "0.9023461823918343`", "84", 
     "0.048427672955974846`", "\<\"Accepted\"\>"},
    {"155", "0.9080065290376307`", "73", 
     "0.04874213836477988`", "\<\"Accepted\"\>"},
    {"156", "0.930279282838945`", "141", 
     "0.049056603773584916`", "\<\"Accepted\"\>"},
    {"157", "0.9404912803005352`", "71", 
     "0.04937106918238994`", "\<\"Accepted\"\>"},
    {"158", "0.9826836106503053`", "4", 
     "0.04968553459119497`", "\<\"Accepted\"\>"},
    {"159", "0.9982818314515213`", "25", "0.05`", "\<\"Accepted\"\>"}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{3.562787683455901*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["North Dakota 2", "Subsubsection",
 CellChangeTimes->{{3.562788890016623*^9, 3.562788891411394*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"d = \"\>", "\[InvisibleSpace]", "1"}],
  SequenceForm["d = ", 1],
  Editable->False]], "Print",
 CellChangeTimes->{3.562788925358654*^9}],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"d\"\>", "\<\"PValue\"\>", "\<\"ID\"\>", "\<\"St\"\>", "\<\"Decision\
\"\>"},
    {"1", "0.0002821454969327179`", "156", 
     "0.0003144654088050315`", "\<\"Rejected\"\>"},
    {"2", "0.002240215564523578`", "12", 
     "0.000628930817610063`", "\<\"Accepted\"\>"},
    {"3", "0.005949801525577415`", "150", 
     "0.0009433962264150946`", "\<\"Accepted\"\>"},
    {"4", "0.011791404413837487`", "14", 
     "0.001257861635220126`", "\<\"Accepted\"\>"},
    {"5", "0.017554224414752666`", "56", 
     "0.0015723270440251573`", "\<\"Accepted\"\>"},
    {"6", "0.018283323027923255`", "58", 
     "0.0018867924528301891`", "\<\"Accepted\"\>"},
    {"7", "0.019854802673756156`", "134", 
     "0.0022012578616352205`", "\<\"Accepted\"\>"},
    {"8", "0.02140719745854272`", "78", 
     "0.002515723270440252`", "\<\"Accepted\"\>"},
    {"9", "0.0388442647394292`", "97", 
     "0.0028301886792452833`", "\<\"Accepted\"\>"},
    {"10", "0.06042653123019169`", "84", 
     "0.0031446540880503146`", "\<\"Accepted\"\>"},
    {"11", "0.07776244726821142`", "37", 
     "0.0034591194968553464`", "\<\"Accepted\"\>"},
    {"12", "0.08329678478092492`", "61", 
     "0.0037735849056603783`", "\<\"Accepted\"\>"},
    {"13", "0.08714442746780295`", "153", 
     "0.004088050314465409`", "\<\"Accepted\"\>"},
    {"14", "0.08890372057011477`", "95", 
     "0.004402515723270441`", "\<\"Accepted\"\>"},
    {"15", "0.09607079916058635`", "119", 
     "0.004716981132075472`", "\<\"Accepted\"\>"},
    {"16", "0.09999279143118477`", "63", 
     "0.005031446540880504`", "\<\"Accepted\"\>"},
    {"17", "0.10651858452749106`", "66", 
     "0.005345911949685535`", "\<\"Accepted\"\>"},
    {"18", "0.11801416924551966`", "137", 
     "0.0056603773584905665`", "\<\"Accepted\"\>"},
    {"19", "0.12173604636788922`", "15", 
     "0.005974842767295598`", "\<\"Accepted\"\>"},
    {"20", "0.13240319589264057`", "128", 
     "0.006289308176100629`", "\<\"Accepted\"\>"},
    {"21", "0.13682030961464134`", "94", 
     "0.006603773584905661`", "\<\"Accepted\"\>"},
    {"22", "0.13780403252645307`", "72", 
     "0.006918238993710693`", "\<\"Accepted\"\>"},
    {"23", "0.14716950479985225`", "131", 
     "0.007232704402515724`", "\<\"Accepted\"\>"},
    {"24", "0.16302952752343855`", "59", 
     "0.0075471698113207565`", "\<\"Accepted\"\>"},
    {"25", "0.1647572880692059`", "107", 
     "0.007861635220125786`", "\<\"Accepted\"\>"},
    {"26", "0.1760686898357161`", "96", 
     "0.008176100628930818`", "\<\"Accepted\"\>"},
    {"27", "0.17758584336745625`", "6", 
     "0.00849056603773585`", "\<\"Accepted\"\>"},
    {"28", "0.18426613739461772`", "135", 
     "0.008805031446540882`", "\<\"Accepted\"\>"},
    {"29", "0.19799918488136853`", "9", 
     "0.009119496855345913`", "\<\"Accepted\"\>"},
    {"30", "0.20203435370810738`", "79", 
     "0.009433962264150945`", "\<\"Accepted\"\>"},
    {"31", "0.22709604660414526`", "34", 
     "0.009748427672955976`", "\<\"Accepted\"\>"},
    {"32", "0.23768989699189352`", "103", 
     "0.010062893081761008`", "\<\"Accepted\"\>"},
    {"33", "0.2434593132804489`", "31", 
     "0.010377358490566039`", "\<\"Accepted\"\>"},
    {"34", "0.25452774598137845`", "158", 
     "0.01069182389937107`", "\<\"Accepted\"\>"},
    {"35", "0.2561713126939131`", "40", 
     "0.011006289308176102`", "\<\"Accepted\"\>"},
    {"36", "0.26198407049772876`", "142", 
     "0.011320754716981133`", "\<\"Accepted\"\>"},
    {"37", "0.26809633447051834`", "57", 
     "0.011635220125786164`", "\<\"Accepted\"\>"},
    {"38", "0.28947677503765695`", "91", 
     "0.011949685534591196`", "\<\"Accepted\"\>"},
    {"39", "0.2896437008644316`", "127", 
     "0.012264150943396229`", "\<\"Accepted\"\>"},
    {"40", "0.29560370118251317`", "46", 
     "0.012578616352201259`", "\<\"Accepted\"\>"},
    {"41", "0.2968483981180167`", "133", 
     "0.012893081761006292`", "\<\"Accepted\"\>"},
    {"42", "0.29774171946959016`", "145", 
     "0.013207547169811321`", "\<\"Accepted\"\>"},
    {"43", "0.29952715725801565`", "36", 
     "0.013522012578616353`", "\<\"Accepted\"\>"},
    {"44", "0.3019305785443753`", "83", 
     "0.013836477987421386`", "\<\"Accepted\"\>"},
    {"45", "0.3025584977227514`", "65", 
     "0.014150943396226415`", "\<\"Accepted\"\>"},
    {"46", "0.30800100112425244`", "86", 
     "0.014465408805031449`", "\<\"Accepted\"\>"},
    {"47", "0.31069638790433196`", "22", 
     "0.01477987421383648`", "\<\"Accepted\"\>"},
    {"48", "0.31540027263320264`", "17", 
     "0.015094339622641513`", "\<\"Accepted\"\>"},
    {"49", "0.3245218682842303`", "118", 
     "0.015408805031446543`", "\<\"Accepted\"\>"},
    {"50", "0.3443059927307601`", "101", 
     "0.015723270440251572`", "\<\"Accepted\"\>"},
    {"51", "0.3509873383634303`", "104", 
     "0.016037735849056607`", "\<\"Accepted\"\>"},
    {"52", "0.3537288574933729`", "152", 
     "0.016352201257861635`", "\<\"Accepted\"\>"},
    {"53", "0.354551677962936`", "19", 
     "0.01666666666666667`", "\<\"Accepted\"\>"},
    {"54", "0.35884823046765774`", "64", 
     "0.0169811320754717`", "\<\"Accepted\"\>"},
    {"55", "0.3646502795137415`", "45", 
     "0.01729559748427673`", "\<\"Accepted\"\>"},
    {"56", "0.3719628087592574`", "98", 
     "0.017610062893081764`", "\<\"Accepted\"\>"},
    {"57", "0.37394119150422245`", "141", 
     "0.017924528301886795`", "\<\"Accepted\"\>"},
    {"58", "0.3745077207351768`", "49", 
     "0.018238993710691827`", "\<\"Accepted\"\>"},
    {"59", "0.3745077207351768`", "50", 
     "0.018553459119496858`", "\<\"Accepted\"\>"},
    {"60", "0.3745911940185099`", "35", 
     "0.01886792452830189`", "\<\"Accepted\"\>"},
    {"61", "0.3763948880412921`", "7", 
     "0.01918238993710692`", "\<\"Accepted\"\>"},
    {"62", "0.3914970931468735`", "5", 
     "0.019496855345911952`", "\<\"Accepted\"\>"},
    {"63", "0.39169369050088926`", "122", 
     "0.019811320754716984`", "\<\"Accepted\"\>"},
    {"64", "0.396615857976434`", "24", 
     "0.020125786163522015`", "\<\"Accepted\"\>"},
    {"65", "0.3989296577883034`", "117", 
     "0.020440251572327046`", "\<\"Accepted\"\>"},
    {"66", "0.41590983496722556`", "114", 
     "0.020754716981132078`", "\<\"Accepted\"\>"},
    {"67", "0.4214150304398655`", "4", 
     "0.02106918238993711`", "\<\"Accepted\"\>"},
    {"68", "0.4222191962065055`", "13", 
     "0.02138364779874214`", "\<\"Accepted\"\>"},
    {"69", "0.4251788756092847`", "29", 
     "0.021698113207547172`", "\<\"Accepted\"\>"},
    {"70", "0.42713085135564594`", "28", 
     "0.022012578616352203`", "\<\"Accepted\"\>"},
    {"71", "0.4280443552550585`", "129", 
     "0.022327044025157235`", "\<\"Accepted\"\>"},
    {"72", "0.42959165239192504`", "43", 
     "0.022641509433962266`", "\<\"Accepted\"\>"},
    {"73", "0.4313433696074006`", "124", 
     "0.022955974842767297`", "\<\"Accepted\"\>"},
    {"74", "0.5010313365103758`", "120", 
     "0.02327044025157233`", "\<\"Accepted\"\>"},
    {"75", "0.5011557222364225`", "136", 
     "0.02358490566037736`", "\<\"Accepted\"\>"},
    {"76", "0.501669740472046`", "159", 
     "0.02389937106918239`", "\<\"Accepted\"\>"},
    {"77", "0.5037083293712722`", "75", 
     "0.024213836477987423`", "\<\"Accepted\"\>"},
    {"78", "0.5074388456401737`", "39", 
     "0.024528301886792458`", "\<\"Accepted\"\>"},
    {"79", "0.5080116757482533`", "93", 
     "0.024842767295597486`", "\<\"Accepted\"\>"},
    {"80", "0.5178055955672041`", "25", 
     "0.025157232704402517`", "\<\"Accepted\"\>"},
    {"81", "0.5182672514982221`", "112", 
     "0.02547169811320755`", "\<\"Accepted\"\>"},
    {"82", "0.5261343534489975`", "82", 
     "0.025786163522012583`", "\<\"Accepted\"\>"},
    {"83", "0.5263541780500335`", "42", 
     "0.026100628930817615`", "\<\"Accepted\"\>"},
    {"84", "0.526594858857693`", "140", 
     "0.026415094339622643`", "\<\"Accepted\"\>"},
    {"85", "0.5322049622628712`", "125", 
     "0.026729559748427674`", "\<\"Accepted\"\>"},
    {"86", "0.5351336303129922`", "126", 
     "0.027044025157232705`", "\<\"Accepted\"\>"},
    {"87", "0.541902689953232`", "138", 
     "0.02735849056603774`", "\<\"Accepted\"\>"},
    {"88", "0.5471424016737974`", "69", 
     "0.02767295597484277`", "\<\"Accepted\"\>"},
    {"89", "0.5504586817573632`", "105", 
     "0.027987421383647803`", "\<\"Accepted\"\>"},
    {"90", "0.5535447423361763`", "26", 
     "0.02830188679245283`", "\<\"Accepted\"\>"},
    {"91", "0.5561096126557232`", "38", 
     "0.028616352201257862`", "\<\"Accepted\"\>"},
    {"92", "0.559884738406355`", "51", 
     "0.028930817610062897`", "\<\"Accepted\"\>"},
    {"93", "0.5876745975602373`", "74", 
     "0.02924528301886793`", "\<\"Accepted\"\>"},
    {"94", "0.5904412954278748`", "48", 
     "0.02955974842767296`", "\<\"Accepted\"\>"},
    {"95", "0.5921058690736194`", "121", 
     "0.029874213836477988`", "\<\"Accepted\"\>"},
    {"96", "0.5976366166132869`", "27", 
     "0.030188679245283026`", "\<\"Accepted\"\>"},
    {"97", "0.5990420552040253`", "20", 
     "0.030503144654088054`", "\<\"Accepted\"\>"},
    {"98", "0.6025774849744177`", "3", 
     "0.030817610062893085`", "\<\"Accepted\"\>"},
    {"99", "0.6029194084184226`", "102", 
     "0.031132075471698117`", "\<\"Accepted\"\>"},
    {"100", "0.6077137375617963`", "115", 
     "0.031446540880503145`", "\<\"Accepted\"\>"},
    {"101", "0.6078914651553767`", "10", 
     "0.03176100628930818`", "\<\"Accepted\"\>"},
    {"102", "0.6122457517706281`", "88", 
     "0.032075471698113214`", "\<\"Accepted\"\>"},
    {"103", "0.615538957005321`", "143", 
     "0.032389937106918246`", "\<\"Accepted\"\>"},
    {"104", "0.6167745750957713`", "123", 
     "0.03270440251572327`", "\<\"Accepted\"\>"},
    {"105", "0.6275428833317341`", "47", 
     "0.0330188679245283`", "\<\"Accepted\"\>"},
    {"106", "0.6279639300377102`", "2", 
     "0.03333333333333334`", "\<\"Accepted\"\>"},
    {"107", "0.6279639300377102`", "62", 
     "0.03364779874213837`", "\<\"Accepted\"\>"},
    {"108", "0.6490786500435761`", "155", 
     "0.0339622641509434`", "\<\"Accepted\"\>"},
    {"109", "0.6498273776425758`", "55", 
     "0.034276729559748434`", "\<\"Accepted\"\>"},
    {"110", "0.6516387034429836`", "21", 
     "0.03459119496855346`", "\<\"Accepted\"\>"},
    {"111", "0.6576249409348272`", "33", 
     "0.0349056603773585`", "\<\"Accepted\"\>"},
    {"112", "0.6581840230820228`", "132", 
     "0.03522012578616353`", "\<\"Accepted\"\>"},
    {"113", "0.6593157342796467`", "1", 
     "0.03553459119496856`", "\<\"Accepted\"\>"},
    {"114", "0.6601157438299533`", "111", 
     "0.03584905660377359`", "\<\"Accepted\"\>"},
    {"115", "0.6620847920076924`", "110", 
     "0.036163522012578615`", "\<\"Accepted\"\>"},
    {"116", "0.6709397756999338`", "157", 
     "0.036477987421383654`", "\<\"Accepted\"\>"},
    {"117", "0.673007418443062`", "130", 
     "0.036792452830188685`", "\<\"Accepted\"\>"},
    {"118", "0.6733852920701147`", "148", 
     "0.037106918238993716`", "\<\"Accepted\"\>"},
    {"119", "0.6783985010334745`", "81", 
     "0.03742138364779875`", "\<\"Accepted\"\>"},
    {"120", "0.6828477776429818`", "32", 
     "0.03773584905660378`", "\<\"Accepted\"\>"},
    {"121", "0.6832148106557425`", "11", 
     "0.03805031446540881`", "\<\"Accepted\"\>"},
    {"122", "0.6838495316357567`", "144", 
     "0.03836477987421384`", "\<\"Accepted\"\>"},
    {"123", "0.6882695198871929`", "30", 
     "0.03867924528301887`", "\<\"Accepted\"\>"},
    {"124", "0.6912814638379225`", "146", 
     "0.038993710691823905`", "\<\"Accepted\"\>"},
    {"125", "0.6988036078310351`", "76", 
     "0.039308176100628936`", "\<\"Accepted\"\>"},
    {"126", "0.7000201347366193`", "77", 
     "0.03962264150943397`", "\<\"Accepted\"\>"},
    {"127", "0.7246818931912785`", "106", 
     "0.039937106918239`", "\<\"Accepted\"\>"},
    {"128", "0.7288504284614142`", "60", 
     "0.04025157232704403`", "\<\"Accepted\"\>"},
    {"129", "0.7308620838835687`", "151", 
     "0.04056603773584906`", "\<\"Accepted\"\>"},
    {"130", "0.7485871766231389`", "68", 
     "0.04088050314465409`", "\<\"Accepted\"\>"},
    {"131", "0.7616529474521032`", "70", 
     "0.041194968553459124`", "\<\"Accepted\"\>"},
    {"132", "0.7675835234580002`", "149", 
     "0.041509433962264156`", "\<\"Accepted\"\>"},
    {"133", "0.7688338916444735`", "90", 
     "0.04182389937106919`", "\<\"Accepted\"\>"},
    {"134", "0.7838578840517438`", "89", 
     "0.04213836477987422`", "\<\"Accepted\"\>"},
    {"135", "0.7932725207342788`", "44", 
     "0.04245283018867925`", "\<\"Accepted\"\>"},
    {"136", "0.7965496380807466`", "99", 
     "0.04276729559748428`", "\<\"Accepted\"\>"},
    {"137", "0.7999108526763169`", "154", 
     "0.04308176100628931`", "\<\"Accepted\"\>"},
    {"138", "0.8020833054413009`", "16", 
     "0.043396226415094344`", "\<\"Accepted\"\>"},
    {"139", "0.8097229176658307`", "18", 
     "0.043710691823899375`", "\<\"Accepted\"\>"},
    {"140", "0.8109168244560228`", "92", 
     "0.04402515723270441`", "\<\"Accepted\"\>"},
    {"141", "0.8125723552602501`", "41", 
     "0.04433962264150944`", "\<\"Accepted\"\>"},
    {"142", "0.8215499844739598`", "113", 
     "0.04465408805031447`", "\<\"Accepted\"\>"},
    {"143", "0.822322213746367`", "67", 
     "0.0449685534591195`", "\<\"Accepted\"\>"},
    {"144", "0.8269098362395738`", "87", 
     "0.04528301886792453`", "\<\"Accepted\"\>"},
    {"145", "0.8357217874846871`", "85", 
     "0.045597484276729564`", "\<\"Accepted\"\>"},
    {"146", "0.846660873710788`", "108", 
     "0.045911949685534595`", "\<\"Accepted\"\>"},
    {"147", "0.8703785971674861`", "109", 
     "0.046226415094339626`", "\<\"Accepted\"\>"},
    {"148", "0.8836803122101853`", "52", 
     "0.04654088050314466`", "\<\"Accepted\"\>"},
    {"149", "0.911288589436706`", "100", 
     "0.04685534591194969`", "\<\"Accepted\"\>"},
    {"150", "0.9456836441453493`", "147", 
     "0.04716981132075472`", "\<\"Accepted\"\>"},
    {"151", "0.9463341918992674`", "53", 
     "0.04748427672955976`", "\<\"Accepted\"\>"},
    {"152", "0.9492489285853399`", "54", 
     "0.04779874213836478`", "\<\"Accepted\"\>"},
    {"153", "0.9532622086239391`", "116", 
     "0.048113207547169815`", "\<\"Accepted\"\>"},
    {"154", "0.9631377402481365`", "71", 
     "0.048427672955974846`", "\<\"Accepted\"\>"},
    {"155", "0.9668139679695883`", "139", 
     "0.04874213836477988`", "\<\"Accepted\"\>"},
    {"156", "0.9896235316046746`", "8", 
     "0.049056603773584916`", "\<\"Accepted\"\>"},
    {"157", "0.990414543422548`", "80", 
     "0.04937106918238994`", "\<\"Accepted\"\>"},
    {"158", "0.9921741782975052`", "23", 
     "0.04968553459119497`", "\<\"Accepted\"\>"},
    {"159", "0.9925846072240514`", "73", "0.05`", "\<\"Accepted\"\>"}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{3.5627889253750677`*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Washington 1", "Subsubsection",
 CellChangeTimes->{{3.562787831550071*^9, 3.562787833275187*^9}, {
  3.5627882839000998`*^9, 3.562788284308742*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"d = \"\>", "\[InvisibleSpace]", "2"}],
  SequenceForm["d = ", 2],
  Editable->False]], "Print",
 CellChangeTimes->{3.562787823166689*^9}],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"d\"\>", "\<\"PValue\"\>", "\<\"ID\"\>", "\<\"St\"\>", "\<\"Decision\
\"\>"},
    {"1", "0.00014492547957186235`", "48", 
     "0.0004273504273504274`", "\<\"Rejected\"\>"},
    {"2", "0.000659420015740066`", "51", 
     "0.0008547008547008548`", "\<\"Rejected\"\>"},
    {"3", "0.0030415203751754482`", "107", 
     "0.0012820512820512823`", "\<\"Accepted\"\>"},
    {"4", "0.012283069116033538`", "34", 
     "0.0017094017094017096`", "\<\"Accepted\"\>"},
    {"5", "0.012475693563425911`", "15", 
     "0.002136752136752137`", "\<\"Accepted\"\>"},
    {"6", "0.016051187933650252`", "80", 
     "0.0025641025641025645`", "\<\"Accepted\"\>"},
    {"7", "0.022091479248097255`", "111", 
     "0.002991452991452992`", "\<\"Accepted\"\>"},
    {"8", "0.022560281474924275`", "50", 
     "0.0034188034188034192`", "\<\"Accepted\"\>"},
    {"9", "0.02993191404107543`", "72", 
     "0.003846153846153847`", "\<\"Accepted\"\>"},
    {"10", "0.03636479272736678`", "99", 
     "0.004273504273504274`", "\<\"Accepted\"\>"},
    {"11", "0.036453287203392165`", "98", 
     "0.0047008547008547015`", "\<\"Accepted\"\>"},
    {"12", "0.045653435939098604`", "54", 
     "0.005128205128205129`", "\<\"Accepted\"\>"},
    {"13", "0.05223660605890748`", "61", 
     "0.005555555555555557`", "\<\"Accepted\"\>"},
    {"14", "0.05832637784559938`", "62", 
     "0.005982905982905984`", "\<\"Accepted\"\>"},
    {"15", "0.06731507875090675`", "13", 
     "0.006410256410256411`", "\<\"Accepted\"\>"},
    {"16", "0.0745793500665728`", "25", 
     "0.0068376068376068385`", "\<\"Accepted\"\>"},
    {"17", "0.07497808423542264`", "96", 
     "0.007264957264957266`", "\<\"Accepted\"\>"},
    {"18", "0.08966703763047375`", "92", 
     "0.007692307692307694`", "\<\"Accepted\"\>"},
    {"19", "0.09261293168927073`", "91", 
     "0.00811965811965812`", "\<\"Accepted\"\>"},
    {"20", "0.09914733345615165`", "7", 
     "0.008547008547008548`", "\<\"Accepted\"\>"},
    {"21", "0.10461546557507714`", "49", 
     "0.008974358974358975`", "\<\"Accepted\"\>"},
    {"22", "0.10524389433592057`", "40", 
     "0.009401709401709403`", "\<\"Accepted\"\>"},
    {"23", "0.11241159028404378`", "70", 
     "0.00982905982905983`", "\<\"Accepted\"\>"},
    {"24", "0.11930793872362455`", "2", 
     "0.010256410256410258`", "\<\"Accepted\"\>"},
    {"25", "0.12481788281097017`", "93", 
     "0.010683760683760684`", "\<\"Accepted\"\>"},
    {"26", "0.12934579481536637`", "114", 
     "0.011111111111111113`", "\<\"Accepted\"\>"},
    {"27", "0.1322886448470738`", "39", 
     "0.01153846153846154`", "\<\"Accepted\"\>"},
    {"28", "0.16969650692880842`", "68", 
     "0.011965811965811968`", "\<\"Accepted\"\>"},
    {"29", "0.1875420452638134`", "14", 
     "0.012393162393162396`", "\<\"Accepted\"\>"},
    {"30", "0.1891065230863116`", "56", 
     "0.012820512820512822`", "\<\"Accepted\"\>"},
    {"31", "0.20206304845285147`", "27", 
     "0.01324786324786325`", "\<\"Accepted\"\>"},
    {"32", "0.21474364140984561`", "24", 
     "0.013675213675213677`", "\<\"Accepted\"\>"},
    {"33", "0.21682396750023314`", "76", 
     "0.014102564102564105`", "\<\"Accepted\"\>"},
    {"34", "0.22415539046106198`", "37", 
     "0.014529914529914532`", "\<\"Accepted\"\>"},
    {"35", "0.2257868203809854`", "16", 
     "0.01495726495726496`", "\<\"Accepted\"\>"},
    {"36", "0.24435687548088997`", "6", 
     "0.015384615384615387`", "\<\"Accepted\"\>"},
    {"37", "0.24577274804161983`", "11", 
     "0.015811965811965815`", "\<\"Accepted\"\>"},
    {"38", "0.25001558082466313`", "4", 
     "0.01623931623931624`", "\<\"Accepted\"\>"},
    {"39", "0.25063345444554797`", "75", 
     "0.01666666666666667`", "\<\"Accepted\"\>"},
    {"40", "0.2597748716291081`", "90", 
     "0.017094017094017096`", "\<\"Accepted\"\>"},
    {"41", "0.27172249459152337`", "106", 
     "0.017521367521367525`", "\<\"Accepted\"\>"},
    {"42", "0.28663126160396196`", "65", 
     "0.01794871794871795`", "\<\"Accepted\"\>"},
    {"43", "0.28891855701828995`", "71", 
     "0.018376068376068377`", "\<\"Accepted\"\>"},
    {"44", "0.2989628708594884`", "31", 
     "0.018803418803418806`", "\<\"Accepted\"\>"},
    {"45", "0.30919528968787563`", "8", 
     "0.019230769230769232`", "\<\"Accepted\"\>"},
    {"46", "0.3101059462217288`", "84", 
     "0.01965811965811966`", "\<\"Accepted\"\>"},
    {"47", "0.31275907677816767`", "89", 
     "0.020085470085470087`", "\<\"Accepted\"\>"},
    {"48", "0.3358631742500792`", "85", 
     "0.020512820512820516`", "\<\"Accepted\"\>"},
    {"49", "0.351830835431173`", "77", 
     "0.020940170940170942`", "\<\"Accepted\"\>"},
    {"50", "0.35685194967753514`", "95", 
     "0.021367521367521368`", "\<\"Accepted\"\>"},
    {"51", "0.3593209539982915`", "23", 
     "0.0217948717948718`", "\<\"Accepted\"\>"},
    {"52", "0.3615494145270037`", "88", 
     "0.022222222222222227`", "\<\"Accepted\"\>"},
    {"53", "0.36344240992795424`", "18", 
     "0.022649572649572656`", "\<\"Accepted\"\>"},
    {"54", "0.373486480755831`", "74", 
     "0.02307692307692308`", "\<\"Accepted\"\>"},
    {"55", "0.3840606873962982`", "103", 
     "0.023504273504273508`", "\<\"Accepted\"\>"},
    {"56", "0.3910014533712016`", "113", 
     "0.023931623931623937`", "\<\"Accepted\"\>"},
    {"57", "0.3913725266009625`", "44", 
     "0.024358974358974363`", "\<\"Accepted\"\>"},
    {"58", "0.42004620813454335`", "1", 
     "0.024786324786324792`", "\<\"Accepted\"\>"},
    {"59", "0.42227100218723557`", "112", 
     "0.025213675213675218`", "\<\"Accepted\"\>"},
    {"60", "0.4284969226750998`", "82", 
     "0.025641025641025644`", "\<\"Accepted\"\>"},
    {"61", "0.5079124508459103`", "10", 
     "0.026068376068376073`", "\<\"Accepted\"\>"},
    {"62", "0.5084689220617543`", "20", 
     "0.0264957264957265`", "\<\"Accepted\"\>"},
    {"63", "0.5123530938387387`", "60", 
     "0.026923076923076928`", "\<\"Accepted\"\>"},
    {"64", "0.5195497379838919`", "81", 
     "0.027350427350427354`", "\<\"Accepted\"\>"},
    {"65", "0.5205879264747271`", "100", 
     "0.02777777777777778`", "\<\"Accepted\"\>"},
    {"66", "0.5222781587894465`", "43", 
     "0.02820512820512821`", "\<\"Accepted\"\>"},
    {"67", "0.5224534701514866`", "32", 
     "0.028632478632478635`", "\<\"Accepted\"\>"},
    {"68", "0.5321538536342187`", "83", 
     "0.029059829059829064`", "\<\"Accepted\"\>"},
    {"69", "0.5350755539141985`", "64", 
     "0.02948717948717949`", "\<\"Accepted\"\>"},
    {"70", "0.5377464213511123`", "105", 
     "0.02991452991452992`", "\<\"Accepted\"\>"},
    {"71", "0.5405445762562902`", "78", 
     "0.03034188034188035`", "\<\"Accepted\"\>"},
    {"72", "0.549330213846011`", "104", 
     "0.030769230769230774`", "\<\"Accepted\"\>"},
    {"73", "0.5525820381141359`", "108", 
     "0.031196581196581204`", "\<\"Accepted\"\>"},
    {"74", "0.5531409408753793`", "46", 
     "0.03162393162393163`", "\<\"Accepted\"\>"},
    {"75", "0.5544547311180222`", "117", 
     "0.032051282051282055`", "\<\"Accepted\"\>"},
    {"76", "0.5596892882639989`", "28", 
     "0.03247863247863248`", "\<\"Accepted\"\>"},
    {"77", "0.5643462986154615`", "53", 
     "0.03290598290598291`", "\<\"Accepted\"\>"},
    {"78", "0.5754271819884572`", "36", 
     "0.03333333333333334`", "\<\"Accepted\"\>"},
    {"79", "0.5879452556558372`", "3", 
     "0.033760683760683766`", "\<\"Accepted\"\>"},
    {"80", "0.6043019236467889`", "58", 
     "0.03418803418803419`", "\<\"Accepted\"\>"},
    {"81", "0.6064232413073611`", "101", 
     "0.03461538461538462`", "\<\"Accepted\"\>"},
    {"82", "0.6118480790748295`", "59", 
     "0.03504273504273505`", "\<\"Accepted\"\>"},
    {"83", "0.6161609498114455`", "5", 
     "0.035470085470085476`", "\<\"Accepted\"\>"},
    {"84", "0.6360304306621674`", "19", 
     "0.0358974358974359`", "\<\"Accepted\"\>"},
    {"85", "0.640851833655131`", "21", 
     "0.03632478632478633`", "\<\"Accepted\"\>"},
    {"86", "0.6557223237713441`", "9", 
     "0.03675213675213675`", "\<\"Accepted\"\>"},
    {"87", "0.656019455905863`", "12", 
     "0.037179487179487186`", "\<\"Accepted\"\>"},
    {"88", "0.6816212532803894`", "45", 
     "0.03760683760683761`", "\<\"Accepted\"\>"},
    {"89", "0.6843666467131042`", "73", 
     "0.03803418803418804`", "\<\"Accepted\"\>"},
    {"90", "0.7131841299609539`", "30", 
     "0.038461538461538464`", "\<\"Accepted\"\>"},
    {"91", "0.7174074857198499`", "22", 
     "0.03888888888888889`", "\<\"Accepted\"\>"},
    {"92", "0.724043425911622`", "57", 
     "0.03931623931623932`", "\<\"Accepted\"\>"},
    {"93", "0.7398487461734828`", "87", 
     "0.03974358974358975`", "\<\"Accepted\"\>"},
    {"94", "0.7491465647050615`", "67", 
     "0.040170940170940174`", "\<\"Accepted\"\>"},
    {"95", "0.7508568421554553`", "55", 
     "0.0405982905982906`", "\<\"Accepted\"\>"},
    {"96", "0.7684635698920452`", "41", 
     "0.04102564102564103`", "\<\"Accepted\"\>"},
    {"97", "0.7692106641003016`", "109", 
     "0.04145299145299146`", "\<\"Accepted\"\>"},
    {"98", "0.7738679683749987`", "33", 
     "0.041880341880341884`", "\<\"Accepted\"\>"},
    {"99", "0.7744854907718333`", "47", 
     "0.04230769230769231`", "\<\"Accepted\"\>"},
    {"100", "0.7783531691369906`", "86", 
     "0.042735042735042736`", "\<\"Accepted\"\>"},
    {"101", "0.8165373218335849`", "66", 
     "0.043162393162393176`", "\<\"Accepted\"\>"},
    {"102", "0.8183581336526011`", "115", 
     "0.0435897435897436`", "\<\"Accepted\"\>"},
    {"103", "0.8291475810522682`", "97", 
     "0.04401709401709403`", "\<\"Accepted\"\>"},
    {"104", "0.8358081396068394`", "116", 
     "0.04444444444444445`", "\<\"Accepted\"\>"},
    {"105", "0.8382082565243603`", "52", 
     "0.04487179487179488`", "\<\"Accepted\"\>"},
    {"106", "0.8417865007492642`", "102", 
     "0.04529914529914531`", "\<\"Accepted\"\>"},
    {"107", "0.8573410746873862`", "35", 
     "0.04572649572649574`", "\<\"Accepted\"\>"},
    {"108", "0.8861000795521501`", "69", 
     "0.04615384615384616`", "\<\"Accepted\"\>"},
    {"109", "0.8943079762847047`", "26", 
     "0.04658119658119659`", "\<\"Accepted\"\>"},
    {"110", "0.9026087828578161`", "94", 
     "0.047008547008547015`", "\<\"Accepted\"\>"},
    {"111", "0.9265566702527879`", "29", 
     "0.04743589743589745`", "\<\"Accepted\"\>"},
    {"112", "0.9269176244809901`", "110", 
     "0.047863247863247874`", "\<\"Accepted\"\>"},
    {"113", "0.9557645015472709`", "17", 
     "0.0482905982905983`", "\<\"Accepted\"\>"},
    {"114", "0.9580367003395418`", "38", 
     "0.048717948717948725`", "\<\"Accepted\"\>"},
    {"115", "0.9934237187133332`", "42", 
     "0.04914529914529915`", "\<\"Accepted\"\>"},
    {"116", "0.9957425935039337`", "79", 
     "0.049572649572649584`", "\<\"Accepted\"\>"},
    {"117", "0.9990763705772989`", "63", 
     "0.05000000000000001`", "\<\"Accepted\"\>"}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{3.562787823178936*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Washington 2", "Subsubsection",
 CellChangeTimes->{{3.5627883293496103`*^9, 3.562788331318774*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"d = \"\>", "\[InvisibleSpace]", "1"}],
  SequenceForm["d = ", 1],
  Editable->False]], "Print",
 CellChangeTimes->{3.562788343845667*^9}],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"d\"\>", "\<\"PValue\"\>", "\<\"ID\"\>", "\<\"St\"\>", "\<\"Decision\
\"\>"},
    {"1", "0.00003991414101100987`", "51", 
     "0.0004273504273504274`", "\<\"Rejected\"\>"},
    {"2", "0.0012780468643424298`", "13", 
     "0.0008547008547008548`", "\<\"Accepted\"\>"},
    {"3", "0.00670508269024296`", "54", 
     "0.0012820512820512823`", "\<\"Accepted\"\>"},
    {"4", "0.008227534806952581`", "22", 
     "0.0017094017094017096`", "\<\"Accepted\"\>"},
    {"5", "0.011801713339231846`", "53", 
     "0.002136752136752137`", "\<\"Accepted\"\>"},
    {"6", "0.015740065748411327`", "49", 
     "0.0025641025641025645`", "\<\"Accepted\"\>"},
    {"7", "0.01604876715461341`", "11", 
     "0.002991452991452992`", "\<\"Accepted\"\>"},
    {"8", "0.018558201175093835`", "50", 
     "0.0034188034188034192`", "\<\"Accepted\"\>"},
    {"9", "0.025123874437374797`", "76", 
     "0.003846153846153847`", "\<\"Accepted\"\>"},
    {"10", "0.027236685326992176`", "102", 
     "0.004273504273504274`", "\<\"Accepted\"\>"},
    {"11", "0.027296812572264666`", "27", 
     "0.0047008547008547015`", "\<\"Accepted\"\>"},
    {"12", "0.03233313753927357`", "15", 
     "0.005128205128205129`", "\<\"Accepted\"\>"},
    {"13", "0.041906493154199205`", "58", 
     "0.005555555555555557`", "\<\"Accepted\"\>"},
    {"14", "0.048584052751323666`", "77", 
     "0.005982905982905984`", "\<\"Accepted\"\>"},
    {"15", "0.06451303035638158`", "89", 
     "0.006410256410256411`", "\<\"Accepted\"\>"},
    {"16", "0.08377492879500557`", "30", 
     "0.0068376068376068385`", "\<\"Accepted\"\>"},
    {"17", "0.08456442356228651`", "48", 
     "0.007264957264957266`", "\<\"Accepted\"\>"},
    {"18", "0.08888351851645783`", "57", 
     "0.007692307692307694`", "\<\"Accepted\"\>"},
    {"19", "0.09505878417540105`", "85", 
     "0.00811965811965812`", "\<\"Accepted\"\>"},
    {"20", "0.10725778018853069`", "61", 
     "0.008547008547008548`", "\<\"Accepted\"\>"},
    {"21", "0.1145796122102024`", "92", 
     "0.008974358974358975`", "\<\"Accepted\"\>"},
    {"22", "0.13480863190700962`", "45", 
     "0.009401709401709403`", "\<\"Accepted\"\>"},
    {"23", "0.13776695336703`", "64", 
     "0.00982905982905983`", "\<\"Accepted\"\>"},
    {"24", "0.14445888657077077`", "55", 
     "0.010256410256410258`", "\<\"Accepted\"\>"},
    {"25", "0.15380340769880524`", "71", 
     "0.010683760683760684`", "\<\"Accepted\"\>"},
    {"26", "0.1614851928634548`", "60", 
     "0.011111111111111113`", "\<\"Accepted\"\>"},
    {"27", "0.16883853848804692`", "80", 
     "0.01153846153846154`", "\<\"Accepted\"\>"},
    {"28", "0.17330300577351315`", "114", 
     "0.011965811965811968`", "\<\"Accepted\"\>"},
    {"29", "0.17338138809817236`", "16", 
     "0.012393162393162396`", "\<\"Accepted\"\>"},
    {"30", "0.17497105769241722`", "86", 
     "0.012820512820512822`", "\<\"Accepted\"\>"},
    {"31", "0.17647215918493822`", "88", 
     "0.01324786324786325`", "\<\"Accepted\"\>"},
    {"32", "0.17914813879196556`", "21", 
     "0.013675213675213677`", "\<\"Accepted\"\>"},
    {"33", "0.18552883943414286`", "108", 
     "0.014102564102564105`", "\<\"Accepted\"\>"},
    {"34", "0.19090521713915395`", "70", 
     "0.014529914529914532`", "\<\"Accepted\"\>"},
    {"35", "0.19723887144523106`", "47", 
     "0.01495726495726496`", "\<\"Accepted\"\>"},
    {"36", "0.21468746319165016`", "2", 
     "0.015384615384615387`", "\<\"Accepted\"\>"},
    {"37", "0.21543589806971689`", "42", 
     "0.015811965811965815`", "\<\"Accepted\"\>"},
    {"38", "0.21973907881033655`", "18", 
     "0.01623931623931624`", "\<\"Accepted\"\>"},
    {"39", "0.23343316631626704`", "91", 
     "0.01666666666666667`", "\<\"Accepted\"\>"},
    {"40", "0.24884046429888496`", "111", 
     "0.017094017094017096`", "\<\"Accepted\"\>"},
    {"41", "0.2534128308587949`", "90", 
     "0.017521367521367525`", "\<\"Accepted\"\>"},
    {"42", "0.2568557148992296`", "14", 
     "0.01794871794871795`", "\<\"Accepted\"\>"},
    {"43", "0.26298874389052274`", "63", 
     "0.018376068376068377`", "\<\"Accepted\"\>"},
    {"44", "0.2726397712214702`", "8", 
     "0.018803418803418806`", "\<\"Accepted\"\>"},
    {"45", "0.2817536366249942`", "17", 
     "0.019230769230769232`", "\<\"Accepted\"\>"},
    {"46", "0.29080785631632194`", "6", 
     "0.01965811965811966`", "\<\"Accepted\"\>"},
    {"47", "0.29346727975141657`", "66", 
     "0.020085470085470087`", "\<\"Accepted\"\>"},
    {"48", "0.30538336052164206`", "38", 
     "0.020512820512820516`", "\<\"Accepted\"\>"},
    {"49", "0.3110229565465911`", "101", 
     "0.020940170940170942`", "\<\"Accepted\"\>"},
    {"50", "0.32227207563235166`", "4", 
     "0.021367521367521368`", "\<\"Accepted\"\>"},
    {"51", "0.34311840014221723`", "117", 
     "0.0217948717948718`", "\<\"Accepted\"\>"},
    {"52", "0.3450939807340142`", "23", 
     "0.022222222222222227`", "\<\"Accepted\"\>"},
    {"53", "0.34629094021055296`", "82", 
     "0.022649572649572656`", "\<\"Accepted\"\>"},
    {"54", "0.3486466848887775`", "107", 
     "0.02307692307692308`", "\<\"Accepted\"\>"},
    {"55", "0.35077196047350423`", "104", 
     "0.023504273504273508`", "\<\"Accepted\"\>"},
    {"56", "0.3517068204558616`", "94", 
     "0.023931623931623937`", "\<\"Accepted\"\>"},
    {"57", "0.35255572250129974`", "95", 
     "0.024358974358974363`", "\<\"Accepted\"\>"},
    {"58", "0.3540480315405678`", "1", 
     "0.024786324786324792`", "\<\"Accepted\"\>"},
    {"59", "0.35832298241138105`", "37", 
     "0.025213675213675218`", "\<\"Accepted\"\>"},
    {"60", "0.3604634322761145`", "93", 
     "0.025641025641025644`", "\<\"Accepted\"\>"},
    {"61", "0.3755070858297`", "25", 
     "0.026068376068376073`", "\<\"Accepted\"\>"},
    {"62", "0.38473379119975604`", "35", 
     "0.0264957264957265`", "\<\"Accepted\"\>"},
    {"63", "0.3857351887064341`", "3", 
     "0.026923076923076928`", "\<\"Accepted\"\>"},
    {"64", "0.3898401184835777`", "59", 
     "0.027350427350427354`", "\<\"Accepted\"\>"},
    {"65", "0.4010164319535286`", "40", 
     "0.02777777777777778`", "\<\"Accepted\"\>"},
    {"66", "0.4253034879045884`", "7", 
     "0.02820512820512821`", "\<\"Accepted\"\>"},
    {"67", "0.4358103683039397`", "98", 
     "0.028632478632478635`", "\<\"Accepted\"\>"},
    {"68", "0.5039780808048583`", "79", 
     "0.029059829059829064`", "\<\"Accepted\"\>"},
    {"69", "0.5090125787454648`", "84", 
     "0.02948717948717949`", "\<\"Accepted\"\>"},
    {"70", "0.5167566257656007`", "44", 
     "0.02991452991452992`", "\<\"Accepted\"\>"},
    {"71", "0.5231550336391385`", "20", 
     "0.03034188034188035`", "\<\"Accepted\"\>"},
    {"72", "0.5293298280685161`", "12", 
     "0.030769230769230774`", "\<\"Accepted\"\>"},
    {"73", "0.5336757642551513`", "33", 
     "0.031196581196581204`", "\<\"Accepted\"\>"},
    {"74", "0.5351029218781638`", "36", 
     "0.03162393162393163`", "\<\"Accepted\"\>"},
    {"75", "0.5389721677836938`", "74", 
     "0.032051282051282055`", "\<\"Accepted\"\>"},
    {"76", "0.5546839409384616`", "103", 
     "0.03247863247863248`", "\<\"Accepted\"\>"},
    {"77", "0.5579419554478326`", "39", 
     "0.03290598290598291`", "\<\"Accepted\"\>"},
    {"78", "0.5730765333604005`", "19", 
     "0.03333333333333334`", "\<\"Accepted\"\>"},
    {"79", "0.600683992780527`", "62", 
     "0.033760683760683766`", "\<\"Accepted\"\>"},
    {"80", "0.6133286622090102`", "109", 
     "0.03418803418803419`", "\<\"Accepted\"\>"},
    {"81", "0.62229676775713`", "115", 
     "0.03461538461538462`", "\<\"Accepted\"\>"},
    {"82", "0.6297051678756597`", "75", 
     "0.03504273504273505`", "\<\"Accepted\"\>"},
    {"83", "0.6359909396713218`", "83", 
     "0.035470085470085476`", "\<\"Accepted\"\>"},
    {"84", "0.6412820484174643`", "26", 
     "0.0358974358974359`", "\<\"Accepted\"\>"},
    {"85", "0.6491795211294922`", "46", 
     "0.03632478632478633`", "\<\"Accepted\"\>"},
    {"86", "0.6683821868427196`", "28", 
     "0.03675213675213675`", "\<\"Accepted\"\>"},
    {"87", "0.6760442775514117`", "56", 
     "0.037179487179487186`", "\<\"Accepted\"\>"},
    {"88", "0.6851615444722401`", "96", 
     "0.03760683760683761`", "\<\"Accepted\"\>"},
    {"89", "0.701056772372465`", "32", 
     "0.03803418803418804`", "\<\"Accepted\"\>"},
    {"90", "0.7164700605339899`", "116", 
     "0.038461538461538464`", "\<\"Accepted\"\>"},
    {"91", "0.7247616238756733`", "100", 
     "0.03888888888888889`", "\<\"Accepted\"\>"},
    {"92", "0.7335831765181835`", "72", 
     "0.03931623931623932`", "\<\"Accepted\"\>"},
    {"93", "0.738364517306795`", "29", 
     "0.03974358974358975`", "\<\"Accepted\"\>"},
    {"94", "0.7412451248395017`", "10", 
     "0.040170940170940174`", "\<\"Accepted\"\>"},
    {"95", "0.7537522033331998`", "112", 
     "0.0405982905982906`", "\<\"Accepted\"\>"},
    {"96", "0.7539346341562998`", "24", 
     "0.04102564102564103`", "\<\"Accepted\"\>"},
    {"97", "0.7600641125610548`", "65", 
     "0.04145299145299146`", "\<\"Accepted\"\>"},
    {"98", "0.7659905178698416`", "68", 
     "0.041880341880341884`", "\<\"Accepted\"\>"},
    {"99", "0.7831743356252516`", "67", 
     "0.04230769230769231`", "\<\"Accepted\"\>"},
    {"100", "0.8150763804476816`", "69", 
     "0.042735042735042736`", "\<\"Accepted\"\>"},
    {"101", "0.8213494472023437`", "41", 
     "0.043162393162393176`", "\<\"Accepted\"\>"},
    {"102", "0.837860748048316`", "34", 
     "0.0435897435897436`", "\<\"Accepted\"\>"},
    {"103", "0.8493547944117266`", "52", 
     "0.04401709401709403`", "\<\"Accepted\"\>"},
    {"104", "0.8717964191143119`", "5", 
     "0.04444444444444445`", "\<\"Accepted\"\>"},
    {"105", "0.8726620406216938`", "31", 
     "0.04487179487179488`", "\<\"Accepted\"\>"},
    {"106", "0.8846164744278275`", "99", 
     "0.04529914529914531`", "\<\"Accepted\"\>"},
    {"107", "0.8877959469882445`", "81", 
     "0.04572649572649574`", "\<\"Accepted\"\>"},
    {"108", "0.8926024156020075`", "105", 
     "0.04615384615384616`", "\<\"Accepted\"\>"},
    {"109", "0.897405153956235`", "43", 
     "0.04658119658119659`", "\<\"Accepted\"\>"},
    {"110", "0.9195638783900851`", "113", 
     "0.047008547008547015`", "\<\"Accepted\"\>"},
    {"111", "0.9233329423986018`", "78", 
     "0.04743589743589745`", "\<\"Accepted\"\>"},
    {"112", "0.9355005681189944`", "87", 
     "0.047863247863247874`", "\<\"Accepted\"\>"},
    {"113", "0.9441027854073378`", "106", 
     "0.0482905982905983`", "\<\"Accepted\"\>"},
    {"114", "0.9538074509704787`", "9", 
     "0.048717948717948725`", "\<\"Accepted\"\>"},
    {"115", "0.9662186345209041`", "97", 
     "0.04914529914529915`", "\<\"Accepted\"\>"},
    {"116", "0.9767058176039007`", "73", 
     "0.049572649572649584`", "\<\"Accepted\"\>"},
    {"117", "0.9795017200584715`", "110", 
     "0.05000000000000001`", "\<\"Accepted\"\>"}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{3.562788343859714*^9}]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Texas Districts", "Section",
 CellChangeTimes->{{3.562029148030457*^9, 3.562029152932585*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nd", "=", 
   RowBox[{"NotebookDirectory", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"in", "=", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{"nd", "<>", "\"\<Texas//Texas_Normal_Vote_2002-2010.txt\>\""}], 
     ",", "\"\<Data\>\""}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"labels", "=", 
   RowBox[{"in", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"in", "[", 
    RowBox[{"[", 
     RowBox[{"2", ";;"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"data", "//", "Length"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"posReg", "=", 
   RowBox[{"First", "[", 
    RowBox[{"First", "[", 
     RowBox[{"Position", "[", 
      RowBox[{"labels", ",", "\"\<t_Registered_Voters_2010\>\""}], "]"}], 
     "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"posTurnOut", "=", 
   RowBox[{"First", "[", 
    RowBox[{"First", "[", 
     RowBox[{"Position", "[", 
      RowBox[{"labels", ",", "\"\<t_Turnout_2010\>\""}], "]"}], "]"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"posFips", "=", 
   RowBox[{"First", "[", 
    RowBox[{"First", "[", 
     RowBox[{"Position", "[", 
      RowBox[{"labels", ",", "\"\<fips\>\""}], "]"}], "]"}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.562029161424212*^9, 3.562029221851035*^9}, {
  3.562029274874775*^9, 3.5620293165320807`*^9}, {3.562029363413424*^9, 
  3.562029363836278*^9}, {3.562800574329076*^9, 3.562800574569872*^9}}],

Cell[BoxData["8400"], "Output",
 CellChangeTimes->{{3.5620292769955673`*^9, 3.562029319025276*^9}, 
   3.562029366326947*^9, 3.562037954997691*^9, 3.562294263222679*^9, 
   3.562516491639975*^9, 3.562521043781575*^9, 3.562536922743163*^9, 
   3.5625469489354153`*^9, 3.56254758755773*^9, 3.562549666669385*^9, 
   3.562696837835284*^9, 3.562800267444479*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"hot", "=", 
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "posTurnOut"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"zeroSizePos", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{"Position", "[", 
     RowBox[{"hot", ",", "0"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"hot2", "=", 
   RowBox[{"DeleteCases", "[", 
    RowBox[{"hot", ",", "0"}], "]"}]}], ";"}], "\n", 
 RowBox[{"hot2", "//", "Length"}], "\[IndentingNewLine]", 
 RowBox[{"Stats", "[", "hot2", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Histogram", "[", "hot2", "]"}]}], "Input",
 CellChangeTimes->{{3.562029406233494*^9, 3.562029479606306*^9}, {
   3.562037898225119*^9, 3.562037903961967*^9}, 3.5620379348484383`*^9, 
   3.5620379716444407`*^9, 3.56280059047398*^9, 3.5628007000995092`*^9}],

Cell[BoxData["8173"], "Output",
 CellChangeTimes->{3.5620294290679893`*^9, 3.562029480427785*^9, 
  3.562037904381236*^9, 3.562037968080317*^9, 3.562067817971245*^9, 
  3.562294263464985*^9, 3.562516491733758*^9, 3.562521044097715*^9, 
  3.562536923120882*^9, 3.562546951303652*^9, 3.562547587635732*^9, 
  3.5625496667593937`*^9, 3.562696838004917*^9, 3.562800703690723*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Mean:610.249\"\>", ",", "\<\"Median:476.\"\>", 
   ",", "\<\"Min:1\"\>", ",", "\<\"Max:3283\"\>", 
   ",", "\<\"Skewness:1.25071\"\>"}], "}"}]], "Output",
 CellChangeTimes->{3.5620294290679893`*^9, 3.562029480427785*^9, 
  3.562037904381236*^9, 3.562037968080317*^9, 3.562067817971245*^9, 
  3.562294263464985*^9, 3.562516491733758*^9, 3.562521044097715*^9, 
  3.562536923120882*^9, 3.562546951303652*^9, 3.562547587635732*^9, 
  3.5625496667593937`*^9, 3.562696838004917*^9, 3.562800703756158*^9}],

Cell[BoxData[
 GraphicsBox[
  {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
   EdgeForm[Opacity[0.7]], {}, 
   {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
    EdgeForm[Opacity[0.7]], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{0., 0.}, {100., 995.}, "RoundingRadius" -> 0]},
        ImageSizeCache->{{33.75, 50.22142857142857}, {-137.00825988902142`, 
         141.6054422260093}}],
       StatusArea[#, 995.]& ,
       TagBoxNote->"995."],
      StyleBox["995.`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[995., {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{100., 0.}, {200., 1005.}, "RoundingRadius" -> 0]},
        ImageSizeCache->{{48.72142857142857, 
         65.19285714285714}, {-139.7933222218358, 141.6054422260093}}],
       StatusArea[#, 1005.]& ,
       TagBoxNote->"1005."],
      StyleBox["1005.`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[1005., {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{200., 0.}, {300., 826.}, "RoundingRadius" -> 0]},
        ImageSizeCache->{{63.692857142857136`, 
         80.16428571428571}, {-89.94070646445843, 141.6054422260093}}],
       StatusArea[#, 826.]& ,
       TagBoxNote->"826."],
      StyleBox["826.`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[826., {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{300., 0.}, {400., 770.}, "RoundingRadius" -> 0]},
        ImageSizeCache->{{78.66428571428571, 
         95.13571428571427}, {-74.3443574006979, 141.6054422260093}}],
       StatusArea[#, 770.]& ,
       TagBoxNote->"770."],
      StyleBox["770.`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[770., {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{400., 0.}, {500., 632.}, "RoundingRadius" -> 0]},
        ImageSizeCache->{{93.63571428571427, 
         110.10714285714285`}, {-35.910497207859464`, 141.6054422260093}}],
       StatusArea[#, 632.]& ,
       TagBoxNote->"632."],
      StyleBox["632.`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[632., {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{500., 0.}, {600., 586.}, "RoundingRadius" -> 0]},
        ImageSizeCache->{{108.60714285714285`, 
         125.07857142857141`}, {-23.099210476913328`, 141.6054422260093}}],
       StatusArea[#, 586.]& ,
       TagBoxNote->"586."],
      StyleBox["586.`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[586., {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{600., 0.}, {700., 509.}, "RoundingRadius" -> 0]},
        ImageSizeCache->{{123.57857142857141`, 
         140.04999999999998`}, {-1.654230514242613, 141.6054422260093}}],
       StatusArea[#, 509.]& ,
       TagBoxNote->"509."],
      StyleBox["509.`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[509., {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{700., 0.}, {800., 460.}, "RoundingRadius" -> 0]},
        ImageSizeCache->{{138.54999999999998`, 155.02142857142854`}, {
         11.992574916547852`, 141.6054422260093}}],
       StatusArea[#, 460.]& ,
       TagBoxNote->"460."],
      StyleBox["460.`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[460., {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{800., 0.}, {900., 365.}, "RoundingRadius" -> 0]},
        ImageSizeCache->{{153.52142857142854`, 169.99285714285713`}, {
         38.45066707828447, 141.6054422260093}}],
       StatusArea[#, 365.]& ,
       TagBoxNote->"365."],
      StyleBox["365.`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[365., {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{900., 0.}, {1000., 382.}, "RoundingRadius" -> 0]},
        ImageSizeCache->{{168.49285714285713`, 184.9642857142857}, {
         33.716061112500014`, 141.6054422260093}}],
       StatusArea[#, 382.]& ,
       TagBoxNote->"382."],
      StyleBox["382.`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[382., {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{1000., 0.}, {1100., 311.}, "RoundingRadius" -> 0]},
        ImageSizeCache->{{183.4642857142857, 199.93571428571425`}, {
         53.490003675482114`, 141.6054422260093}}],
       StatusArea[#, 311.]& ,
       TagBoxNote->"311."],
      StyleBox["311.`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[311., {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{1100., 0.}, {1200., 230.}, "RoundingRadius" -> 0]},
        ImageSizeCache->{{198.43571428571425`, 214.90714285714282`}, {
         76.04900857127858, 141.6054422260093}}],
       StatusArea[#, 230.]& ,
       TagBoxNote->"230."],
      StyleBox["230.`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[230., {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{1200., 0.}, {1300., 196.}, "RoundingRadius" -> 0]},
        ImageSizeCache->{{213.40714285714282`, 229.8785714285714}, {
         85.51822050284747, 141.6054422260093}}],
       StatusArea[#, 196.]& ,
       TagBoxNote->"196."],
      StyleBox["196.`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[196., {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{1300., 0.}, {1400., 192.}, "RoundingRadius" -> 0]},
        ImageSizeCache->{{228.3785714285714, 244.84999999999997`}, {
         86.63224543597322, 141.6054422260093}}],
       StatusArea[#, 192.]& ,
       TagBoxNote->"192."],
      StyleBox["192.`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[192., {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{1400., 0.}, {1500., 157.}, "RoundingRadius" -> 0]},
        ImageSizeCache->{{243.34999999999997`, 259.82142857142856`}, {
         96.37996360082354, 141.6054422260093}}],
       StatusArea[#, 157.]& ,
       TagBoxNote->"157."],
      StyleBox["157.`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[157., {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{1500., 0.}, {1600., 114.}, "RoundingRadius" -> 0]},
        ImageSizeCache->{{258.32142857142856`, 274.7928571428571}, {
         108.35573163192538`, 141.6054422260093}}],
       StatusArea[#, 114.]& ,
       TagBoxNote->"114."],
      StyleBox["114.`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[114., {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{1600., 0.}, {1700., 105.}, "RoundingRadius" -> 0]},
        ImageSizeCache->{{273.2928571428571, 289.7642857142857}, {
         110.86228773145832`, 141.6054422260093}}],
       StatusArea[#, 105.]& ,
       TagBoxNote->"105."],
      StyleBox["105.`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[105., {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{1700., 0.}, {1800., 76.}, "RoundingRadius" -> 0]},
        ImageSizeCache->{{288.2642857142857, 304.73571428571427`}, {
         118.93896849662002`, 141.6054422260093}}],
       StatusArea[#, 76.]& ,
       TagBoxNote->"76."],
      StyleBox["76.`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[76., {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{1800., 0.}, {1900., 63.}, "RoundingRadius" -> 0]},
        ImageSizeCache->{{303.23571428571427`, 319.7071428571428}, {
         122.55954952927871`, 141.6054422260093}}],
       StatusArea[#, 63.]& ,
       TagBoxNote->"63."],
      StyleBox["63.`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[63., {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{1900., 0.}, {2000., 41.}, "RoundingRadius" -> 0]},
        ImageSizeCache->{{318.2071428571428, 334.6785714285714}, {
         128.68668666147033`, 141.6054422260093}}],
       StatusArea[#, 41.]& ,
       TagBoxNote->"41."],
      StyleBox["41.`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[41., {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{2000., 0.}, {2100., 31.}, "RoundingRadius" -> 0]},
        ImageSizeCache->{{333.1785714285714, 349.6499999999999}, {
         131.47174899428472`, 141.6054422260093}}],
       StatusArea[#, 31.]& ,
       TagBoxNote->"31."],
      StyleBox["31.`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[31., {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{2100., 0.}, {2200., 31.}, "RoundingRadius" -> 0]},
        ImageSizeCache->{{348.1499999999999, 364.6214285714285}, {
         131.47174899428472`, 141.6054422260093}}],
       StatusArea[#, 31.]& ,
       TagBoxNote->"31."],
      StyleBox["31.`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[31., {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{2200., 0.}, {2300., 31.}, "RoundingRadius" -> 0]},
        ImageSizeCache->{{363.1214285714285, 379.5928571428571}, {
         131.47174899428472`, 141.6054422260093}}],
       StatusArea[#, 31.]& ,
       TagBoxNote->"31."],
      StyleBox["31.`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[31., {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{2300., 0.}, {2400., 17.}, "RoundingRadius" -> 0]},
        ImageSizeCache->{{378.0928571428571, 394.56428571428563`}, {
         135.37083626022485`, 141.6054422260093}}],
       StatusArea[#, 17.]& ,
       TagBoxNote->"17."],
      StyleBox["17.`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[17., {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{2400., 0.}, {2500., 8.}, "RoundingRadius" -> 0]},
        ImageSizeCache->{{393.06428571428563`, 409.5357142857142}, {
         137.8773923597578, 141.6054422260093}}],
       StatusArea[#, 8.]& ,
       TagBoxNote->"8."],
      StyleBox["8.`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[8., {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{2500., 0.}, {2600., 11.}, "RoundingRadius" -> 0]},
        ImageSizeCache->{{408.0357142857142, 424.5071428571428}, {
         137.04187365991348`, 141.6054422260093}}],
       StatusArea[#, 11.]& ,
       TagBoxNote->"11."],
      StyleBox["11.`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[11., {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{2600., 0.}, {2700., 6.}, "RoundingRadius" -> 0]},
        ImageSizeCache->{{423.0071428571428, 439.47857142857134`}, {
         138.43440482632067`, 141.6054422260093}}],
       StatusArea[#, 6.]& ,
       TagBoxNote->"6."],
      StyleBox["6.`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[6., {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{2700., 0.}, {2800., 5.}, "RoundingRadius" -> 0]},
        ImageSizeCache->{{437.97857142857134`, 454.44999999999993`}, {
         138.7129110596021, 141.6054422260093}}],
       StatusArea[#, 5.]& ,
       TagBoxNote->"5."],
      StyleBox["5.`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[5., {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{2800., 0.}, {2900., 5.}, "RoundingRadius" -> 0]},
        ImageSizeCache->{{452.94999999999993`, 469.4214285714285}, {
         138.7129110596021, 141.6054422260093}}],
       StatusArea[#, 5.]& ,
       TagBoxNote->"5."],
      StyleBox["5.`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[5., {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{2900., 0.}, {3000., 5.}, "RoundingRadius" -> 0]},
        ImageSizeCache->{{467.9214285714285, 484.39285714285705`}, {
         138.7129110596021, 141.6054422260093}}],
       StatusArea[#, 5.]& ,
       TagBoxNote->"5."],
      StyleBox["5.`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[5., {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{3000., 0.}, {3100., 5.}, "RoundingRadius" -> 0]},
        ImageSizeCache->{{482.89285714285705`, 499.36428571428564`}, {
         138.7129110596021, 141.6054422260093}}],
       StatusArea[#, 5.]& ,
       TagBoxNote->"5."],
      StyleBox["5.`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[5., {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{3100., 0.}, {3200., 2.}, "RoundingRadius" -> 0]},
        ImageSizeCache->{{497.86428571428564`, 514.3357142857142}, {
         139.54842975944644`, 141.6054422260093}}],
       StatusArea[#, 2.]& ,
       TagBoxNote->"2."],
      StyleBox["2.`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[2., {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{3200., 0.}, {3300., 1.}, "RoundingRadius" -> 0]},
        ImageSizeCache->{{512.8357142857142, 529.3071428571427}, {
         139.82693599272787`, 141.6054422260093}}],
       StatusArea[#, 1.]& ,
       TagBoxNote->"1."],
      StyleBox["1.`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[1., {
        GrayLevel[0]}], "Tooltip"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesOrigin->{0., 0.},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  PlotRange->{{0, 3300}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.1]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.5620294290679893`*^9, 3.562029480427785*^9, 
  3.562037904381236*^9, 3.562037968080317*^9, 3.562067817971245*^9, 
  3.562294263464985*^9, 3.562516491733758*^9, 3.562521044097715*^9, 
  3.562536923120882*^9, 3.562546951303652*^9, 3.562547587635732*^9, 
  3.5625496667593937`*^9, 3.562696838004917*^9, 3.562800703950338*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Random Choice with Weights", "Subsection",
 CellChangeTimes->{{3.562536973788211*^9, 3.5625369766374187`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"cand", "=", 
   RowBox[{"{", 
    RowBox[{"\"\<r\>\"", ",", "\"\<d\>\"", ",", "\"\<o\>\""}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"weights", "=", 
   RowBox[{"{", 
    RowBox[{".55", ",", ".44", ",", ".05"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"dist", "=", 
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"DistrictVoteGenerator", "[", 
       RowBox[{"cand", ",", "weights", ",", "#"}], "]"}], "&"}], ",", 
     "hot2"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"chiStat", "=", 
   RowBox[{"Map", "[", 
    RowBox[{"X2B2", ",", 
     RowBox[{"Transpose", "[", "dist", "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pValue", "=", 
   RowBox[{"Map", "[", 
    RowBox[{"PValue", ",", "chiStat"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"TableForm", "[", 
  RowBox[{"Transpose", "[", 
   RowBox[{"{", 
    RowBox[{"cand", ",", "chiStat", ",", "pValue"}], "}"}], "]"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.562033138362103*^9, 3.562033175674378*^9}, 
   3.5620380456239557`*^9, 3.562041333594129*^9, {3.562042043588513*^9, 
   3.562042068295163*^9}}],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"r\"\>", "8.558628108278985`", "0.478971661370118`"},
    {"\<\"d\"\>", "8.74421506962617`", "0.4612126577303484`"},
    {"\<\"o\"\>", "9.96805904746328`", "0.3530772089242111`"}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.5620418592134037`*^9, 3.562041894951742*^9}, 
   3.562041963014599*^9, {3.562042056129312*^9, 3.562042085881784*^9}, 
   3.562043145518824*^9, 3.562043177423161*^9, {3.562045077637673*^9, 
   3.562045095289163*^9}, 3.562045134676622*^9, 3.562067234613453*^9, {
   3.562067863376416*^9, 3.562067890873475*^9}, {3.562068375663085*^9, 
   3.5620684221593027`*^9}, 3.562068817915349*^9, {3.562068898056418*^9, 
   3.562068929759879*^9}, 3.562069063433516*^9, 3.562286234903633*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"focus", "=", 
   RowBox[{"dist", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "2"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Stats", "[", "focus", "]"}], "\[IndentingNewLine]", 
 RowBox[{"DataLogPlot", "[", "focus", "]"}], "\[IndentingNewLine]", 
 RowBox[{"BLHistogram", "[", "focus", "]"}]}], "Input",
 CellChangeTimes->{{3.562042205692422*^9, 3.562042233778981*^9}, {
  3.56204318275196*^9, 3.562043182887762*^9}, {3.562045103687834*^9, 
  3.562045104044129*^9}, {3.562045139656643*^9, 3.562045139798814*^9}, {
  3.562067742228861*^9, 3.562067777615507*^9}, {3.562069080555005*^9, 
  3.562069080722171*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Mean:258.064\"\>", ",", "\<\"Median:201.\"\>", 
   ",", "\<\"Min:0\"\>", ",", "\<\"Max:1379\"\>", 
   ",", "\<\"Skewness:1.24547\"\>"}], "}"}]], "Output",
 CellChangeTimes->{
  3.56204209366602*^9, {3.562042206612337*^9, 3.5620422345492897`*^9}, 
   3.5620431836506853`*^9, 3.5620451047970324`*^9, 3.56204514062325*^9, {
   3.562067775135429*^9, 3.562067778658502*^9}, {3.562069065436125*^9, 
   3.5620690817917957`*^9}}],

Cell[BoxData[
 GraphicsBox[
  {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
   EdgeForm[Opacity[0.7]], {}, 
   {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
    EdgeForm[Opacity[0.7]], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{0., 0.}, {0.1, 0.006024837083487028}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{29.75, 46.81173469387755}, {122.60122780394224`, 
         142.07757818100907`}}],
       StatusArea[#, 0.006024837083487028]& ,
       TagBoxNote->"0.006024837083487028"],
      StyleBox["0.006024837083487028`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.006024837083487028, {
        GrayLevel[0]}], "Tooltip"]& ], {}, {}, 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{0.3, 0.}, {0.4, 0.004303455059633592}, 
          "RoundingRadius" -> 0]},
        ImageSizeCache->{{76.43520408163263, 93.49693877551019}, {
         127.7373279116756, 142.07757818100907`}}],
       StatusArea[#, 0.004303455059633592]& ,
       TagBoxNote->"0.004303455059633592"],
      StyleBox["0.004303455059633592`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.004303455059633592, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{0.4, 0.}, {0.5, 0.003073896471166851}, 
          "RoundingRadius" -> 0]},
        ImageSizeCache->{{91.99693877551019, 109.05867346938774`}, {
         131.4059708457709, 142.07757818100907`}}],
       StatusArea[#, 0.003073896471166851]& ,
       TagBoxNote->"0.003073896471166851"],
      StyleBox["0.003073896471166851`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.003073896471166851, {
        GrayLevel[0]}], "Tooltip"]& ], {}, 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{0.6, 0.}, {0.7, 0.0071314398131070945`}, 
          "RoundingRadius" -> 0]},
        ImageSizeCache->{{123.12040816326528`, 140.18214285714282`}, {
         119.2994491632565, 142.07757818100907`}}],
       StatusArea[#, 0.0071314398131070945`]& ,
       TagBoxNote->"0.0071314398131070945"],
      StyleBox["0.0071314398131070945`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.0071314398131070945`, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{0.7, 0.}, {0.8, 0.0034427640477068732`}, 
          "RoundingRadius" -> 0]},
        ImageSizeCache->{{138.68214285714282`, 155.74387755102038`}, {
         130.3053779655423, 142.07757818100907`}}],
       StatusArea[#, 0.0034427640477068732`]& ,
       TagBoxNote->"0.0034427640477068732"],
      StyleBox["0.0034427640477068732`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.0034427640477068732`, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{0.8, 0.}, {0.9, 0.0017213820238534366`}, 
          "RoundingRadius" -> 0]},
        ImageSizeCache->{{154.24387755102038`, 171.30561224489793`}, {
         135.4414780732757, 142.07757818100907`}}],
       StatusArea[#, 0.0017213820238534366`]& ,
       TagBoxNote->"0.0017213820238534366"],
      StyleBox["0.0017213820238534366`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.0017213820238534366`, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{0.9, 0.}, {1., 0.00454936677732694}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{169.80561224489793`, 186.86734693877548`}, {
         127.00359932485657`, 142.07757818100907`}}],
       StatusArea[#, 0.00454936677732694]& ,
       TagBoxNote->"0.00454936677732694"],
      StyleBox["0.00454936677732694`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.00454936677732694, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{1., 0.}, {1.1, 0.0073773515308004425`}, 
          "RoundingRadius" -> 0]},
        ImageSizeCache->{{185.36734693877548`, 202.42908163265304`}, {
         118.56572057643743`, 142.07757818100907`}}],
       StatusArea[#, 0.0073773515308004425`]& ,
       TagBoxNote->"0.0073773515308004425"],
      StyleBox["0.0073773515308004425`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.0073773515308004425`, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{1.1, 0.}, {1.2, 0.006762572236567072}, 
          "RoundingRadius" -> 0]},
        ImageSizeCache->{{200.92908163265304`, 217.99081632653056`}, {
         120.40004204348507`, 142.07757818100907`}}],
       StatusArea[#, 0.006762572236567072]& ,
       TagBoxNote->"0.006762572236567072"],
      StyleBox["0.006762572236567072`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.006762572236567072, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{1.2, 0.}, {1.3, 0.011066027296200664`}, 
          "RoundingRadius" -> 0]},
        ImageSizeCache->{{216.49081632653056`, 233.55255102040815`}, {
         107.55979177415162`, 142.07757818100907`}}],
       StatusArea[#, 0.011066027296200664`]& ,
       TagBoxNote->"0.011066027296200664"],
      StyleBox["0.011066027296200664`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.011066027296200664`, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{1.3, 0.}, {1.4, 0.017213820238534367`}, 
          "RoundingRadius" -> 0]},
        ImageSizeCache->{{232.05255102040815`, 249.11428571428567`}, {
         89.21657710367525, 142.07757818100907`}}],
       StatusArea[#, 0.017213820238534367`]& ,
       TagBoxNote->"0.017213820238534367"],
      StyleBox["0.017213820238534367`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.017213820238534367`, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{1.4, 0.}, {1.5, 0.016844952661994345`}, 
          "RoundingRadius" -> 0]},
        ImageSizeCache->{{247.61428571428567`, 264.67602040816325`}, {
         90.31716998390382, 142.07757818100907`}}],
       StatusArea[#, 0.016844952661994345`]& ,
       TagBoxNote->"0.016844952661994345"],
      StyleBox["0.016844952661994345`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.016844952661994345`, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{1.5, 0.}, {1.6, 0.02311570146317472}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{263.17602040816325`, 280.23775510204075`}, {
         71.60709102001795, 142.07757818100907`}}],
       StatusArea[#, 0.02311570146317472]& ,
       TagBoxNote->"0.02311570146317472"],
      StyleBox["0.02311570146317472`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.02311570146317472, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{1.6, 0.}, {1.7, 0.03344399360629534}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{278.73775510204075`, 295.7994897959183}, {
         40.790490373617644`, 142.07757818100907`}}],
       StatusArea[#, 0.03344399360629534]& ,
       TagBoxNote->"0.03344399360629534"],
      StyleBox["0.03344399360629534`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.03344399360629534, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{1.7, 0.}, {1.8, 0.035042419771302104`}, 
          "RoundingRadius" -> 0]},
        ImageSizeCache->{{294.2994897959183, 311.36122448979586`}, {
         36.021254559293794`, 142.07757818100907`}}],
       StatusArea[#, 0.035042419771302104`]& ,
       TagBoxNote->"0.035042419771302104"],
      StyleBox["0.035042419771302104`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.035042419771302104`, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{1.8, 0.}, {1.9, 0.04561662363211607}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{309.86122448979586`, 326.9229591836734}, {
         4.47092532607445, 142.07757818100907`}}],
       StatusArea[#, 0.04561662363211607]& ,
       TagBoxNote->"0.04561662363211607"],
      StyleBox["0.04561662363211607`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.04561662363211607, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{1.9, 0.}, {2., 0.05090372556252305}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{325.4229591836734, 
         342.48469387755097`}, {-11.304239290535236`, 142.07757818100907`}}],
       StatusArea[#, 0.05090372556252305]& ,
       TagBoxNote->"0.05090372556252305"],
      StyleBox["0.05090372556252305`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.05090372556252305, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{2., 0.}, {2.1, 0.06307635558834379}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{340.98469387755097`, 
         358.0464285714285}, {-47.62380433807846, 142.07757818100907`}}],
       StatusArea[#, 0.06307635558834379]& ,
       TagBoxNote->"0.06307635558834379"],
      StyleBox["0.06307635558834379`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.06307635558834379, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{2.1, 0.}, {2.2, 0.0767244559203246}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{356.5464285714285, 
         373.6081632653061}, {-88.34574090653598, 142.07757818100907`}}],
       StatusArea[#, 0.0767244559203246]& ,
       TagBoxNote->"0.0767244559203246"],
      StyleBox["0.0767244559203246`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.0767244559203246, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{2.2, 0.}, {2.3, 0.07610967662609124}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{372.1081632653061, 
         389.1698979591836}, {-86.51141943948835, 142.07757818100907`}}],
       StatusArea[#, 0.07610967662609124]& ,
       TagBoxNote->"0.07610967662609124"],
      StyleBox["0.07610967662609124`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.07610967662609124, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{2.3, 0.}, {2.4, 0.09012664453461207}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{387.6698979591836, 
         404.7316326530611}, {-128.3339488881744, 142.07757818100907`}}],
       StatusArea[#, 0.09012664453461207]& ,
       TagBoxNote->"0.09012664453461207"],
      StyleBox["0.09012664453461207`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.09012664453461207, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{2.4, 0.}, {2.5, 0.09455305545309234}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{403.2316326530611, 
         420.2933673469387}, {-141.54106345091742`, 142.07757818100907`}}],
       StatusArea[#, 0.09455305545309234]& ,
       TagBoxNote->"0.09455305545309234"],
      StyleBox["0.09455305545309234`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.09455305545309234, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{2.5, 0.}, {2.6, 0.09221689413500553}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{418.7933673469387, 
         435.8551020408163}, {-134.5706418761364, 142.07757818100907`}}],
       StatusArea[#, 0.09221689413500553]& ,
       TagBoxNote->"0.09221689413500553"],
      StyleBox["0.09221689413500553`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.09221689413500553, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{2.6, 0.}, {2.7, 0.09098733554653879}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{434.3551020408163, 
         451.41683673469385`}, {-130.90199894204113`, 142.07757818100907`}}],
       StatusArea[#, 0.09098733554653879]& ,
       TagBoxNote->"0.09098733554653879"],
      StyleBox["0.09098733554653879`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.09098733554653879, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{2.7, 0.}, {2.8, 0.06934710438952416}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{449.91683673469385`, 
         466.97857142857134`}, {-66.3338833019643, 142.07757818100907`}}],
       StatusArea[#, 0.06934710438952416]& ,
       TagBoxNote->"0.06934710438952416"],
      StyleBox["0.06934710438952416`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.06934710438952416, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{2.8, 0.}, {2.9, 0.04352637403172261}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{465.47857142857134`, 482.5403061224489}, {
         10.70761831403641, 142.07757818100907`}}],
       StatusArea[#, 0.04352637403172261]& ,
       TagBoxNote->"0.04352637403172261"],
      StyleBox["0.04352637403172261`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.04352637403172261, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{2.9, 0.}, {3., 0.018935202262387804`}, 
          "RoundingRadius" -> 0]},
        ImageSizeCache->{{481.0403061224489, 498.10204081632645`}, {
         84.08047699594186, 142.07757818100907`}}],
       StatusArea[#, 0.018935202262387804`]& ,
       TagBoxNote->"0.018935202262387804"],
      StyleBox["0.018935202262387804`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.018935202262387804`, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{3., 0.}, {3.1, 0.00577892536579368}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{496.60204081632645`, 513.663775510204}, {
         123.33495639076129`, 142.07757818100907`}}],
       StatusArea[#, 0.00577892536579368]& ,
       TagBoxNote->"0.00577892536579368"],
      StyleBox["0.00577892536579368`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.00577892536579368, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{3.1, 0.}, {3.2, 0.0009836468707733923}, 
          "RoundingRadius" -> 0]},
        ImageSizeCache->{{512.163775510204, 529.2255102040815}, {
         137.64266383373285`, 142.07757818100907`}}],
       StatusArea[#, 0.0009836468707733923]& ,
       TagBoxNote->"0.0009836468707733923"],
      StyleBox["0.0009836468707733923`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.0009836468707733923, {
        GrayLevel[0]}], "Tooltip"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesOrigin->{0., 0},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  PlotRange->NCache[{{0, 
      Rational[16, 5]}, {All, All}}, {{0, 3.2}, {All, All}}],
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.1]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.56204209366602*^9, {3.562042206612337*^9, 3.5620422345492897`*^9}, 
   3.5620431836506853`*^9, 3.5620451047970324`*^9, 3.56204514062325*^9, {
   3.562067775135429*^9, 3.562067778658502*^9}, {3.562069065436125*^9, 
   3.562069082138803*^9}}],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{
      Opacity[0], 
      PointBox[{{0, 0}}]}, {
      RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
      EdgeForm[
       Opacity[0.7]], {}, {{{}, {{
          RGBColor[0, 1, 0], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{0.2, 0.}, {1.2, 0.11967926859688072`}, 
                "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{34.080221827861564`, 
               57.231330967169455`}, {-165.4252109191884, 
               143.84057995200405`}}], StatusArea[#, 0.11967926859688072`]& , 
             TagBoxNote -> "0.11967926859688072"], 
            StyleBox["0.11967926859688072`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.11967926859688072`, {
              GrayLevel[0]}], "Tooltip"]& ]}, {
          RGBColor[0, 0, 1], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{1.3, 0.}, {2.3, 0.11489049308699376`}, 
                "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{57.896441881100245`, 
               81.04755102040814}, {-153.1104524870553, 
               143.84057995200405`}}], StatusArea[#, 0.11489049308699376`]& , 
             TagBoxNote -> "0.11489049308699376"], 
            StyleBox["0.11489049308699376`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.11489049308699376`, {
              GrayLevel[0]}], "Tooltip"]& ]}}, {}, {}}, {{}, {{
          RGBColor[0, 1, 0], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{2.5, 0.}, {3.5, 0.11389010340755638`}, 
                "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{83.87777284826971, 
               107.0288819875776}, {-150.53786222575886`, 
               143.84057995200405`}}], StatusArea[#, 0.11389010340755638`]& , 
             TagBoxNote -> "0.11389010340755638"], 
            StyleBox["0.11389010340755638`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.11389010340755638`, {
              GrayLevel[0]}], "Tooltip"]& ]}, {
          RGBColor[0, 0, 1], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{3.6, 0.}, {4.6, 0.11440107671601615`}, 
                "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{107.6939929015084, 
               130.84510204081627`}, {-151.85187513907212`, 
               143.84057995200405`}}], StatusArea[#, 0.11440107671601615`]& , 
             TagBoxNote -> "0.11440107671601615"], 
            StyleBox["0.11440107671601615`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.11440107671601615`, {
              GrayLevel[0]}], "Tooltip"]& ]}}, {}, {}}, {{}, {{
          RGBColor[0, 1, 0], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{4.8, 0.}, {5.8, 0.10882149900550823`}, 
                "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{133.67532386867788`, 
               156.82643300798577`}, {-137.5034991259645, 
               143.84057995200405`}}], StatusArea[#, 0.10882149900550823`]& , 
             TagBoxNote -> "0.10882149900550823"], 
            StyleBox["0.10882149900550823`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.10882149900550823`, {
              GrayLevel[0]}], "Tooltip"]& ]}, {
          RGBColor[0, 0, 1], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{5.8999999999999995`, 0.}, {6.8999999999999995`, 
                0.11342224397406094`}, "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{157.49154392191653`, 
               180.64265306122445`}, {-149.33472044310568`, 
               143.84057995200405`}}], StatusArea[#, 0.11342224397406094`]& , 
             TagBoxNote -> "0.11342224397406094"], 
            StyleBox["0.11342224397406094`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.11342224397406094`, {
              GrayLevel[0]}], "Tooltip"]& ]}}, {}, {}}, {{}, {{
          RGBColor[0, 1, 0], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{7.1, 0.}, {8.1, 0.10432956023095939`}, 
                "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{183.47287488908603`, 
               206.62398402839392`}, {-125.95208252974018`, 
               143.84057995200405`}}], StatusArea[#, 0.10432956023095939`]& , 
             TagBoxNote -> "0.10432956023095939"], 
            StyleBox["0.10432956023095939`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.10432956023095939`, {
              GrayLevel[0]}], "Tooltip"]& ]}, {
          RGBColor[0, 0, 1], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{8.2, 0.}, {9.2, 0.09971858558668788}, 
                "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{207.28909494232468`, 
               230.44020408163257`}, {-114.0945546995757, 
               143.84057995200405`}}], StatusArea[#, 0.09971858558668788]& , 
             TagBoxNote -> "0.09971858558668788"], 
            StyleBox["0.09971858558668788`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.09971858558668788, {
              GrayLevel[0]}], "Tooltip"]& ]}}, {}, {}}, {{}, {{
          RGBColor[0, 1, 0], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{9.399999999999999, 0.}, {10.399999999999999`, 
                0.10030820226757939`}, "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{233.27042590949415`, 
               256.42153504880207`}, {-115.61080597878978`, 
               143.84057995200405`}}], StatusArea[#, 0.10030820226757939`]& , 
             TagBoxNote -> "0.10030820226757939"], 
            StyleBox["0.10030820226757939`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.10030820226757939`, {
              GrayLevel[0]}], "Tooltip"]& ]}, {
          RGBColor[0, 0, 1], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{10.499999999999998`, 0.}, {11.499999999999998`, 
                0.095803254618867}, "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{257.0866459627328, 
               280.2377551020407}, {-104.02593591571002`, 
               143.84057995200405`}}], StatusArea[#, 0.095803254618867]& , 
             TagBoxNote -> "0.095803254618867"], 
            StyleBox["0.095803254618867`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.095803254618867, {
              GrayLevel[0]}], "Tooltip"]& ]}}, {}, {}}, {{}, {{
          RGBColor[0, 1, 0], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{11.699999999999998`, 0.}, {12.699999999999998`, 
                0.09667723580232242}, "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{283.0679769299023, 
               306.21908606921016`}, {-106.27345558462372`, 
               143.84057995200405`}}], StatusArea[#, 0.09667723580232242]& , 
             TagBoxNote -> "0.09667723580232242"], 
            StyleBox["0.09667723580232242`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.09667723580232242, {
              GrayLevel[0]}], "Tooltip"]& ]}, {
          RGBColor[0, 0, 1], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{12.799999999999997`, 0.}, {13.799999999999997`, 
                0.1013091887923651}, "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{306.88419698314095`, 
               330.03530612244884`}, {-118.18493108052112`, 
               143.84057995200405`}}], StatusArea[#, 0.1013091887923651]& , 
             TagBoxNote -> "0.1013091887923651"], 
            StyleBox["0.1013091887923651`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.1013091887923651, {
              GrayLevel[0]}], "Tooltip"]& ]}}, {}, {}}, {{}, {{
          RGBColor[0, 1, 0], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{13.999999999999996`, 0.}, {14.999999999999996`, 
                0.09337473578303612}, "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{332.8655279503104, 
               356.0166370896183}, {-97.78078561593153, 
               143.84057995200405`}}], StatusArea[#, 0.09337473578303612]& , 
             TagBoxNote -> "0.09337473578303612"], 
            StyleBox["0.09337473578303612`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.09337473578303612, {
              GrayLevel[0]}], "Tooltip"]& ]}, {
          RGBColor[0, 0, 1], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{15.099999999999996`, 0.}, {16.099999999999994`, 
                0.09201027774379053}, "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{356.6817480035491, 
               379.83285714285694`}, {-94.27196146884012, 
               143.84057995200405`}}], StatusArea[#, 0.09201027774379053]& , 
             TagBoxNote -> "0.09201027774379053"], 
            StyleBox["0.09201027774379053`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.09201027774379053, {
              GrayLevel[0]}], "Tooltip"]& ]}}, {}, {}}, {{}, {{
          RGBColor[0, 1, 0], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{16.299999999999994`, 0.}, {17.299999999999994`, 
                0.0903519892696033}, "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{382.6630789707185, 
               405.8141881100264}, {-90.00752645236378, 
               143.84057995200405`}}], StatusArea[#, 0.0903519892696033]& , 
             TagBoxNote -> "0.0903519892696033"], 
            StyleBox["0.0903519892696033`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.0903519892696033, {
              GrayLevel[0]}], "Tooltip"]& ]}, {
          RGBColor[0, 0, 1], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{17.399999999999995`, 0.}, {18.399999999999995`, 
                0.09396794322770097}, "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{406.4792990239572, 
               429.6304081632651}, {-99.30627086077297, 
               143.84057995200405`}}], StatusArea[#, 0.09396794322770097]& , 
             TagBoxNote -> "0.09396794322770097"], 
            StyleBox["0.09396794322770097`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.09396794322770097, {
              GrayLevel[0]}], "Tooltip"]& ]}}, {}, {}}, {{}, {{
          RGBColor[0, 1, 0], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               RectangleBox[{18.599999999999994`, 0.}, {19.599999999999994`, 
                0.08757005357886137}, "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{432.46062999112667`, 
               455.61173913043456`}, {-82.85353355073684, 
               143.84057995200405`}}], StatusArea[#, 0.08757005357886137]& , 
             TagBoxNote -> "0.08757005357886137"], 
            StyleBox["0.08757005357886137`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.08757005357886137, {
              GrayLevel[0]}], "Tooltip"]& ]}, {
          RGBColor[0, 0, 1], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{19.699999999999996`, 0.}, {20.699999999999996`, 
                0.09078673681634651}, "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{456.27685004436535`, 
               479.42795918367324`}, {-91.12551809888208, 
               143.84057995200405`}}], StatusArea[#, 0.09078673681634651]& , 
             TagBoxNote -> "0.09078673681634651"], 
            StyleBox["0.09078673681634651`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.09078673681634651, {
              GrayLevel[0]}], "Tooltip"]& ]}}, {}, {}}, {{}, {{
          RGBColor[0, 1, 0], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{20.899999999999995`, 0.}, {21.899999999999995`, 
                0.08499735205769224}, "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{482.2581810115348, 
               505.4092901508427}, {-76.23760476356196, 
               143.84057995200405`}}], StatusArea[#, 0.08499735205769224]& , 
             TagBoxNote -> "0.08499735205769224"], 
            StyleBox["0.08499735205769224`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.08499735205769224, {
              GrayLevel[0]}], "Tooltip"]& ]}, {
          RGBColor[0, 0, 1], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{21.999999999999996`, 0.}, {22.999999999999996`, 
                0.08369019943717117}, "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{506.07440106477355`, 
               529.2255102040814}, {-72.87614655312547, 
               143.84057995200405`}}], StatusArea[#, 0.08369019943717117]& , 
             TagBoxNote -> "0.08369019943717117"], 
            StyleBox["0.08369019943717117`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.08369019943717117, {
              GrayLevel[0]}], 
            "Tooltip"]& ]}}, {}, {}}}, {}, {}}, {}, {{{{{{{{}, {}}, {}}, \
{{{}, {}}, {}}}, {}}, {}}, {{{{{{}, {}}, {}}, {{{}, {}}, {}}}, {}}, {}}, \
{{{{{{}, {}}, {}}, {{{}, {}}, {}}}, {}}, {}}, {{{{{{}, {}}, {}}, {{{}, {}}, \
{}}}, {}}, {}}, {{{{{{}, {}}, {}}, {{{}, {}}, {}}}, {}}, {}}, {{{{{{}, {}}, \
{}}, {{{}, {}}, {}}}, {}}, {}}, {{{{{{}, {}}, {}}, {{{}, {}}, {}}}, {}}, {}}, \
{{{{{{}, {}}, {}}, {{{}, {}}, {}}}, {}}, {}}, {{{{{{}, {}}, {}}, {{{}, {}}, \
{}}}, {}}, {}}, {{{{{{}, {}}, {}}, {{{}, {}}, {}}}, {}}, {}}}, {}}, 
     GraphicsGroupBox[{
       GrayLevel[0], 
       StyleBox[
        GraphicsGroupBox[{
          LineBox[{{{0.2, 0.}, 
             Offset[{0, -6}, {0.2, 0.}]}, {{22.999999999999996`, 0.}, 
             Offset[{0, -6}, {22.999999999999996`, 0.}]}}], 
          LineBox[{{{0.2, 0.}, 
             Offset[{0, -4}, {0.2, 0.}]}, {{2.3, 0.}, 
             Offset[{0, -4}, {2.3, 0.}]}}], 
          InsetBox[
           PaneBox["0"], 
           Offset[{0, -14}, {1.25, 0.}], 
           ImageScaled[{
             Rational[1, 2], 1}]], 
          LineBox[{{{2.5, 0.}, 
             Offset[{0, -4}, {2.5, 0.}]}, {{4.6, 0.}, 
             Offset[{0, -4}, {4.6, 0.}]}}], 
          InsetBox[
           PaneBox["1"], 
           Offset[{0, -14}, {3.55, 0.}], 
           ImageScaled[{
             Rational[1, 2], 1}]], 
          LineBox[{{{4.8, 0.}, 
             Offset[{0, -4}, {4.8, 0.}]}, {{6.8999999999999995`, 0.}, 
             Offset[{0, -4}, {6.8999999999999995`, 0.}]}}], 
          InsetBox[
           PaneBox["2"], 
           Offset[{0, -14}, {5.85, 0.}], 
           ImageScaled[{
             Rational[1, 2], 1}]], 
          LineBox[{{{7.1, 0.}, 
             Offset[{0, -4}, {7.1, 0.}]}, {{9.2, 0.}, 
             Offset[{0, -4}, {9.2, 0.}]}}], 
          InsetBox[
           PaneBox["3"], 
           Offset[{0, -14}, {8.149999999999999, 0.}], 
           ImageScaled[{
             Rational[1, 2], 1}]], 
          LineBox[{{{9.399999999999999, 0.}, 
             Offset[{0, -4}, {9.399999999999999, 0.}]}, {{11.499999999999998`,
              0.}, 
             Offset[{0, -4}, {11.499999999999998`, 0.}]}}], 
          InsetBox[
           PaneBox["4"], 
           Offset[{0, -14}, {10.45, 0.}], 
           ImageScaled[{
             Rational[1, 2], 1}]], 
          LineBox[{{{11.699999999999998`, 0.}, 
             Offset[{0, -4}, {11.699999999999998`, 0.}]}, {{
             13.799999999999997`, 0.}, 
             Offset[{0, -4}, {13.799999999999997`, 0.}]}}], 
          InsetBox[
           PaneBox["5"], 
           Offset[{0, -14}, {12.749999999999996`, 0.}], 
           ImageScaled[{
             Rational[1, 2], 1}]], 
          LineBox[{{{13.999999999999996`, 0.}, 
             Offset[{0, -4}, {13.999999999999996`, 0.}]}, {{
             16.099999999999994`, 0.}, 
             Offset[{0, -4}, {16.099999999999994`, 0.}]}}], 
          InsetBox[
           PaneBox["6"], 
           Offset[{0, -14}, {15.049999999999995`, 0.}], 
           ImageScaled[{
             Rational[1, 2], 1}]], 
          LineBox[{{{16.299999999999994`, 0.}, 
             Offset[{0, -4}, {16.299999999999994`, 0.}]}, {{
             18.399999999999995`, 0.}, 
             Offset[{0, -4}, {18.399999999999995`, 0.}]}}], 
          InsetBox[
           PaneBox["7"], 
           Offset[{0, -14}, {17.349999999999994`, 0.}], 
           ImageScaled[{
             Rational[1, 2], 1}]], 
          LineBox[{{{18.599999999999994`, 0.}, 
             Offset[{0, -4}, {18.599999999999994`, 0.}]}, {{
             20.699999999999996`, 0.}, 
             Offset[{0, -4}, {20.699999999999996`, 0.}]}}], 
          InsetBox[
           PaneBox["8"], 
           Offset[{0, -14}, {19.649999999999995`, 0.}], 
           ImageScaled[{
             Rational[1, 2], 1}]], 
          LineBox[{{{20.899999999999995`, 0.}, 
             Offset[{0, -4}, {20.899999999999995`, 0.}]}, {{
             22.999999999999996`, 0.}, 
             Offset[{0, -4}, {22.999999999999996`, 0.}]}}], 
          InsetBox[
           PaneBox["9"], 
           Offset[{0, -14}, {21.949999999999996`, 0.}], 
           ImageScaled[{
             Rational[1, 2], 1}]]}], Antialiasing -> False]}]}, AspectRatio -> 
    NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
    AxesOrigin -> {0, 0}, 
    FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, ImageSize -> 
    Medium, PlotLabel -> 
    FormBox["\"Second Digit Benford Expected Frequency\"", TraditionalForm], 
    PlotRangePadding -> Scaled[0.02], Ticks -> {None, Automatic}],FrameBox[
    StyleBox[
     TagBox[
      GridBox[{{
         TagBox[
          GridBox[{{
             GraphicsBox[{
               RGBColor[0, 1, 0], 
               EdgeForm[
                Opacity[0.7]], 
               RectangleBox[{0, 0}]}, ImageSize -> 10], "\"2BL\""}}, 
           AutoDelete -> False, 
           GridBoxItemSize -> {
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]}, {
        
         TagBox[
          GridBox[{{
             GraphicsBox[{
               RGBColor[0, 0, 1], 
               EdgeForm[
                Opacity[0.7]], 
               RectangleBox[{0, 0}]}, ImageSize -> 10], "\"Data\""}}, 
           AutoDelete -> False, 
           GridBoxItemSize -> {
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]}}, 
       GridBoxAlignment -> {"Columns" -> {{Left}}}, 
       GridBoxItemSize -> {
        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], 
     "TR", StripOnInput -> False, ShowStringCharacters -> False], 
    StripOnInput -> False]},
  "Labeled",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, 
    GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
    BaselinePosition -> {1, 1}]& ),
  InterpretationFunction->(RowBox[{"Labeled", "[", 
     RowBox[{#, ",", #2, ",", "Right"}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.56204209366602*^9, {3.562042206612337*^9, 3.5620422345492897`*^9}, 
   3.5620431836506853`*^9, 3.5620451047970324`*^9, 3.56204514062325*^9, {
   3.562067775135429*^9, 3.562067778658502*^9}, {3.562069065436125*^9, 
   3.5620690824645844`*^9}}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Mechanism A", "Subsection",
 CellChangeTimes->{{3.562536999486644*^9, 3.562537000989794*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"cand", "=", 
   RowBox[{"{", 
    RowBox[{"\"\<r\>\"", ",", "\"\<d\>\""}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mf", "=", 
   RowBox[{"1", "/", "3"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lgp", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"hgp", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"lb", "=", "4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ha", "=", "4"}], ";"}]}], "Input",
 CellChangeTimes->{{3.562033138362103*^9, 3.562033175674378*^9}, 
   3.5620380456239557`*^9, 3.562041333594129*^9, {3.562042043588513*^9, 
   3.562042068295163*^9}, {3.562291025186509*^9, 3.562291048838666*^9}, {
   3.562291138275003*^9, 3.5622911403600683`*^9}, 3.562291397396348*^9, {
   3.5622940887070312`*^9, 3.5622941002522497`*^9}, 3.562294282961417*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MechA", "[", 
  RowBox[{"50", ",", "mf", ",", "lgp", ",", "hgp", ",", "lb", ",", "ha"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.562294292851243*^9, 3.562294294964202*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"26", ",", "24"}], "}"}]], "Output",
 CellChangeTimes->{
  3.562294295517219*^9, {3.5622943605194197`*^9, 3.562294369739562*^9}, {
   3.5622946953937073`*^9, 3.562294702866294*^9}, 3.562520984494384*^9, 
   3.562521048387265*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dist", "=", 
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"MechA", "[", 
       RowBox[{"#", ",", "mf", ",", "lgp", ",", "hgp", ",", "lb", ",", "ha"}],
        "]"}], "&"}], ",", "hot2"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"chiStat", "=", 
   RowBox[{"Map", "[", 
    RowBox[{"X2B2", ",", 
     RowBox[{"Transpose", "[", "dist", "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pValue", "=", 
   RowBox[{"Map", "[", 
    RowBox[{"PValue", ",", "chiStat"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"TableForm", "[", 
  RowBox[{"Transpose", "[", 
   RowBox[{"{", 
    RowBox[{"cand", ",", "chiStat", ",", "pValue"}], "}"}], "]"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.562033138362103*^9, 3.562033175674378*^9}, 
   3.5620380456239557`*^9, 3.562041333594129*^9, {3.562042043588513*^9, 
   3.562042068295163*^9}, {3.562291025186509*^9, 3.562291048838666*^9}, {
   3.562291138275003*^9, 3.5622911403600683`*^9}, 3.562291397396348*^9, {
   3.5622940887070312`*^9, 3.5622941002522497`*^9}, 3.562294282961417*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"focus", "=", 
   RowBox[{"dist", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "1"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Stats", "[", "focus", "]"}], "\[IndentingNewLine]", 
 RowBox[{"DataLogPlot", "[", "focus", "]"}], "\[IndentingNewLine]", 
 RowBox[{"BLHistogram", "[", "focus", "]"}]}], "Input",
 CellChangeTimes->{{3.562291543195896*^9, 3.562291543347135*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Mean:279.425\"\>", ",", "\<\"Median:193.\"\>", 
   ",", "\<\"Min:0\"\>", ",", "\<\"Max:2263\"\>", 
   ",", "\<\"Skewness:1.86497\"\>"}], "}"}]], "Output",
 CellChangeTimes->{3.5622915453695593`*^9, 3.5622929518964663`*^9, 
  3.562293287260194*^9}],

Cell[BoxData[
 GraphicsBox[
  {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
   EdgeForm[Opacity[0.7]], {}, 
   {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
    EdgeForm[Opacity[0.7]], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{0., 0.}, {0.1, 0.007858546168958742}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{29.749999999999996`, 45.89633853541416}, {
         114.44792106893476`, 142.077578181009}}],
       StatusArea[#, 0.007858546168958742]& ,
       TagBoxNote->"0.007858546168958742"],
      StyleBox["0.007858546168958742`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.007858546168958742, {
        GrayLevel[0]}], "Tooltip"]& ], {}, {}, 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{0.3, 0.}, {0.4, 0.003929273084479371}, 
          "RoundingRadius" -> 0]},
        ImageSizeCache->{{73.68901560624249, 89.83535414165667}, {
         127.51274962497189`, 142.077578181009}}],
       StatusArea[#, 0.003929273084479371]& ,
       TagBoxNote->"0.003929273084479371"],
      StyleBox["0.003929273084479371`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.003929273084479371, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{0.4, 0.}, {0.5, 0.0036836935166994107`}, 
          "RoundingRadius" -> 0]},
        ImageSizeCache->{{88.33535414165667, 104.48169267707082`}, {
         128.3293014097242, 142.077578181009}}],
       StatusArea[#, 0.0036836935166994107`]& ,
       TagBoxNote->"0.0036836935166994107"],
      StyleBox["0.0036836935166994107`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.0036836935166994107`, {
        GrayLevel[0]}], "Tooltip"]& ], {}, 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{0.6, 0.}, {0.7, 0.0073673870333988214`}, 
          "RoundingRadius" -> 0]},
        ImageSizeCache->{{117.62803121248498`, 133.77436974789913`}, {
         116.0810246384394, 142.077578181009}}],
       StatusArea[#, 0.0073673870333988214`]& ,
       TagBoxNote->"0.0073673870333988214"],
      StyleBox["0.0073673870333988214`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.0073673870333988214`, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{0.7, 0.}, {0.8, 0.002455795677799607}, 
          "RoundingRadius" -> 0]},
        ImageSizeCache->{{132.27436974789913`, 148.42070828331333`}, {
         132.41206033348578`, 142.077578181009}}],
       StatusArea[#, 0.002455795677799607]& ,
       TagBoxNote->"0.002455795677799607"],
      StyleBox["0.002455795677799607`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.002455795677799607, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{0.8, 0.}, {0.9, 0.0033153241650294694`}, 
          "RoundingRadius" -> 0]},
        ImageSizeCache->{{146.92070828331333`, 163.06704681872748`}, {
         129.55412908685267`, 142.077578181009}}],
       StatusArea[#, 0.0033153241650294694`]& ,
       TagBoxNote->"0.0033153241650294694"],
      StyleBox["0.0033153241650294694`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.0033153241650294694`, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{0.9, 0.}, {1., 0.006630648330058939}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{161.56704681872748`, 177.71338535414165`}, {
         118.53067999269636`, 142.077578181009}}],
       StatusArea[#, 0.006630648330058939]& ,
       TagBoxNote->"0.006630648330058939"],
      StyleBox["0.006630648330058939`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.006630648330058939, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{1., 0.}, {1.1, 0.009577603143418467}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{176.21338535414165`, 192.35972388955582`}, {
         108.73205857566853`, 142.077578181009}}],
       StatusArea[#, 0.009577603143418467]& ,
       TagBoxNote->"0.009577603143418467"],
      StyleBox["0.009577603143418467`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.009577603143418467, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{1.1, 0.}, {1.2, 0.009332023575638507}, 
          "RoundingRadius" -> 0]},
        ImageSizeCache->{{190.85972388955582`, 207.00606242496997`}, {
         109.54861036042084`, 142.077578181009}}],
       StatusArea[#, 0.009332023575638507]& ,
       TagBoxNote->"0.009332023575638507"],
      StyleBox["0.009332023575638507`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.009332023575638507, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{1.2, 0.}, {1.3, 0.012401768172888015`}, 
          "RoundingRadius" -> 0]},
        ImageSizeCache->{{205.50606242496997`, 221.65240096038414`}, {
         99.34171305101685, 142.077578181009}}],
       StatusArea[#, 0.012401768172888015`]& ,
       TagBoxNote->"0.012401768172888015"],
      StyleBox["0.012401768172888015`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.012401768172888015`, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{1.3, 0.}, {1.4, 0.019277996070726916`}, 
          "RoundingRadius" -> 0]},
        ImageSizeCache->{{220.15240096038414`, 236.2987394957983}, {
         76.4782630779519, 142.077578181009}}],
       StatusArea[#, 0.019277996070726916`]& ,
       TagBoxNote->"0.019277996070726916"],
      StyleBox["0.019277996070726916`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.019277996070726916`, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{1.4, 0.}, {1.5, 0.01829567779960707}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{234.7987394957983, 250.94507803121246`}, {
         79.74447021696119, 142.077578181009}}],
       StatusArea[#, 0.01829567779960707]& ,
       TagBoxNote->"0.01829567779960707"],
      StyleBox["0.01829567779960707`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.01829567779960707, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{1.5, 0.}, {1.6, 0.023944007858546168`}, 
          "RoundingRadius" -> 0]},
        ImageSizeCache->{{249.44507803121246`, 265.59141656662666`}, {
         60.96377916765783, 142.077578181009}}],
       StatusArea[#, 0.023944007858546168`]& ,
       TagBoxNote->"0.023944007858546168"],
      StyleBox["0.023944007858546168`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.023944007858546168`, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{1.6, 0.}, {1.7, 0.0343811394891945}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{264.09141656662666`, 280.2377551020408}, {
         26.260328315684234`, 142.077578181009}}],
       StatusArea[#, 0.0343811394891945]& ,
       TagBoxNote->"0.0343811394891945"],
      StyleBox["0.0343811394891945`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.0343811394891945, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{1.7, 0.}, {1.8, 0.04150294695481336}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{278.7377551020408, 294.88409363745495`}, {
         2.5803265578669823`, 142.077578181009}}],
       StatusArea[#, 0.04150294695481336]& ,
       TagBoxNote->"0.04150294695481336"],
      StyleBox["0.04150294695481336`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.04150294695481336, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{1.8, 0.}, {1.9, 0.04899312377210216}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{293.38409363745495`, 
         309.5304321728691}, {-22.32450287707877, 142.077578181009}}],
       StatusArea[#, 0.04899312377210216]& ,
       TagBoxNote->"0.04899312377210216"],
      StyleBox["0.04899312377210216`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.04899312377210216, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{1.9, 0.}, {2., 0.05108055009823183}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{308.0304321728691, 
         324.1767707082833}, {-29.265193047473502`, 142.077578181009}}],
       StatusArea[#, 0.05108055009823183]& ,
       TagBoxNote->"0.05108055009823183"],
      StyleBox["0.05108055009823183`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.05108055009823183, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{2., 0.}, {2.1, 0.05893909626719057}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{322.6767707082833, 
         338.8231092436975}, {-55.39485015954773, 142.077578181009}}],
       StatusArea[#, 0.05893909626719057]& ,
       TagBoxNote->"0.05893909626719057"],
      StyleBox["0.05893909626719057`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.05893909626719057, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{2.1, 0.}, {2.2, 0.07207760314341846}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{337.3231092436975, 
         353.46944777911165`}, {-99.08037064379681, 142.077578181009}}],
       StatusArea[#, 0.07207760314341846]& ,
       TagBoxNote->"0.07207760314341846"],
      StyleBox["0.07207760314341846`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.07207760314341846, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{2.2, 0.}, {2.3, 0.0762524557956778}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{351.96944777911165`, 
         368.1157863145258}, {-112.96175098458625`, 142.077578181009}}],
       StatusArea[#, 0.0762524557956778]& ,
       TagBoxNote->"0.0762524557956778"],
      StyleBox["0.0762524557956778`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.0762524557956778, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{2.3, 0.}, {2.4, 0.07760314341846758}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{366.6157863145258, 
         382.76212484993994`}, {-117.452785800724, 142.077578181009}}],
       StatusArea[#, 0.07760314341846758]& ,
       TagBoxNote->"0.07760314341846758"],
      StyleBox["0.07760314341846758`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.07760314341846758, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{2.4, 0.}, {2.5, 0.08484774066797643}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{381.26212484993994`, 
         397.40846338535414`}, {-141.54106345091745`, 142.077578181009}}],
       StatusArea[#, 0.08484774066797643]& ,
       TagBoxNote->"0.08484774066797643"],
      StyleBox["0.08484774066797643`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.08484774066797643, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{2.5, 0.}, {2.6, 0.08018172888015718}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{395.90846338535414`, 
         412.0548019207683}, {-126.02657954062337`, 142.077578181009}}],
       StatusArea[#, 0.08018172888015718]& ,
       TagBoxNote->"0.08018172888015718"],
      StyleBox["0.08018172888015718`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.08018172888015718, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{2.6, 0.}, {2.7, 0.07527013752455795}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{410.5548019207683, 
         426.7011404561825}, {-109.69554384557696`, 142.077578181009}}],
       StatusArea[#, 0.07527013752455795]& ,
       TagBoxNote->"0.07527013752455795"],
      StyleBox["0.07527013752455795`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.07527013752455795, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{2.7, 0.}, {2.8, 0.0649557956777996}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{425.2011404561825, 
         441.3474789915966}, {-75.40036888597953, 142.077578181009}}],
       StatusArea[#, 0.0649557956777996]& ,
       TagBoxNote->"0.0649557956777996"],
      StyleBox["0.0649557956777996`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.0649557956777996, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{2.8, 0.}, {2.9, 0.048010805500982315`}, 
          "RoundingRadius" -> 0]},
        ImageSizeCache->{{439.8474789915966, 
         455.9938175270108}, {-19.05829573806949, 142.077578181009}}],
       StatusArea[#, 0.048010805500982315`]& ,
       TagBoxNote->"0.048010805500982315"],
      StyleBox["0.048010805500982315`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.048010805500982315`, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{2.9, 0.}, {3., 0.030083497053045187`}, 
          "RoundingRadius" -> 0]},
        ImageSizeCache->{{454.4938175270108, 470.6401560624249}, {
         40.549984548849835`, 142.077578181009}}],
       StatusArea[#, 0.030083497053045187`]& ,
       TagBoxNote->"0.030083497053045187"],
      StyleBox["0.030083497053045187`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.030083497053045187`, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{3., 0.}, {3.1, 0.01743614931237721}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{469.1401560624249, 485.2864945978391}, {
         82.6024014635943, 142.077578181009}}],
       StatusArea[#, 0.01743614931237721]& ,
       TagBoxNote->"0.01743614931237721"],
      StyleBox["0.01743614931237721`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.01743614931237721, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{3.1, 0.}, {3.2, 0.007612966601178782}, 
          "RoundingRadius" -> 0]},
        ImageSizeCache->{{483.7864945978391, 499.9328331332533}, {
         115.26447285368708`, 142.077578181009}}],
       StatusArea[#, 0.007612966601178782]& ,
       TagBoxNote->"0.007612966601178782"],
      StyleBox["0.007612966601178782`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.007612966601178782, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{3.2, 0.}, {3.3, 0.002087426326129666}, 
          "RoundingRadius" -> 0]},
        ImageSizeCache->{{498.4328331332533, 514.5791716686674}, {
         133.63688801061426`, 142.077578181009}}],
       StatusArea[#, 0.002087426326129666]& ,
       TagBoxNote->"0.002087426326129666"],
      StyleBox["0.002087426326129666`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.002087426326129666, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{3.3, 0.}, {3.4, 0.0006139489194499018}, 
          "RoundingRadius" -> 0]},
        ImageSizeCache->{{513.0791716686674, 529.2255102040816}, {
         138.53619871912818`, 142.077578181009}}],
       StatusArea[#, 0.0006139489194499018]& ,
       TagBoxNote->"0.0006139489194499018"],
      StyleBox["0.0006139489194499018`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.0006139489194499018, {
        GrayLevel[0]}], "Tooltip"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesOrigin->{0., 0},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  PlotRange->NCache[{{0, 
      Rational[17, 5]}, {All, All}}, {{0, 3.4}, {All, All}}],
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.1]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.5622915453695593`*^9, 3.5622929518964663`*^9, 
  3.5622932877851667`*^9}],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{
      Opacity[0], 
      PointBox[{{0, 0}}]}, {
      RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
      EdgeForm[
       Opacity[0.7]], {}, {{{}, {{
          RGBColor[0, 1, 0], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{0.2, 0.}, {1.2, 0.11967926859688072`}, 
                "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{34.080221827861564`, 
               57.231330967169455`}, {-165.4252109191884, 
               143.84057995200405`}}], StatusArea[#, 0.11967926859688072`]& , 
             TagBoxNote -> "0.11967926859688072"], 
            StyleBox["0.11967926859688072`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.11967926859688072`, {
              GrayLevel[0]}], "Tooltip"]& ]}, {
          RGBColor[0, 0, 1], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{1.3, 0.}, {2.3, 0.11807169949834823`}, 
                "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{57.896441881100245`, 
               81.04755102040814}, {-161.29120524894623`, 
               143.84057995200405`}}], StatusArea[#, 0.11807169949834823`]& , 
             TagBoxNote -> "0.11807169949834823"], 
            StyleBox["0.11807169949834823`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.11807169949834823`, {
              GrayLevel[0]}], "Tooltip"]& ]}}, {}, {}}, {{}, {{
          RGBColor[0, 1, 0], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{2.5, 0.}, {3.5, 0.11389010340755638`}, 
                "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{83.87777284826971, 
               107.0288819875776}, {-150.53786222575886`, 
               143.84057995200405`}}], StatusArea[#, 0.11389010340755638`]& , 
             TagBoxNote -> "0.11389010340755638"], 
            StyleBox["0.11389010340755638`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.11389010340755638`, {
              GrayLevel[0]}], "Tooltip"]& ]}, {
          RGBColor[0, 0, 1], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{3.6, 0.}, {4.6, 0.11745992903462621`}, 
                "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{107.6939929015084, 
               130.84510204081627`}, {-159.71798356396724`, 
               143.84057995200405`}}], StatusArea[#, 0.11745992903462621`]& , 
             TagBoxNote -> "0.11745992903462621"], 
            StyleBox["0.11745992903462621`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.11745992903462621`, {
              GrayLevel[0]}], "Tooltip"]& ]}}, {}, {}}, {{}, {{
          RGBColor[0, 1, 0], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{4.8, 0.}, {5.8, 0.10882149900550823`}, 
                "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{133.67532386867788`, 
               156.82643300798577`}, {-137.5034991259645, 
               143.84057995200405`}}], StatusArea[#, 0.10882149900550823`]& , 
             TagBoxNote -> "0.10882149900550823"], 
            StyleBox["0.10882149900550823`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.10882149900550823`, {
              GrayLevel[0]}], "Tooltip"]& ]}, {
          RGBColor[0, 0, 1], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{5.8999999999999995`, 0.}, {6.8999999999999995`, 
                0.1063257065948856}, "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{157.49154392191653`, 
               180.64265306122445`}, {-131.08534889734912`, 
               143.84057995200405`}}], StatusArea[#, 0.1063257065948856]& , 
             TagBoxNote -> "0.1063257065948856"], 
            StyleBox["0.1063257065948856`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.1063257065948856, {
              GrayLevel[0]}], "Tooltip"]& ]}}, {}, {}}, {{}, {{
          RGBColor[0, 1, 0], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{7.1, 0.}, {8.1, 0.10432956023095939`}, 
                "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{183.47287488908603`, 
               206.62398402839392`}, {-125.95208252974018`, 
               143.84057995200405`}}], StatusArea[#, 0.10432956023095939`]& , 
             TagBoxNote -> "0.10432956023095939"], 
            StyleBox["0.10432956023095939`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.10432956023095939`, {
              GrayLevel[0]}], "Tooltip"]& ]}, {
          RGBColor[0, 0, 1], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{8.2, 0.}, {9.2, 0.1009421265141319}, 
                "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{207.28909494232468`, 
               230.44020408163257`}, {-117.24099806953373`, 
               143.84057995200405`}}], StatusArea[#, 0.1009421265141319]& , 
             TagBoxNote -> "0.1009421265141319"], 
            StyleBox["0.1009421265141319`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.1009421265141319, {
              GrayLevel[0]}], "Tooltip"]& ]}}, {}, {}}, {{}, {{
          RGBColor[0, 1, 0], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{9.399999999999999, 0.}, {10.399999999999999`, 
                0.10030820226757939`}, "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{233.27042590949415`, 
               256.42153504880207`}, {-115.61080597878978`, 
               143.84057995200405`}}], StatusArea[#, 0.10030820226757939`]& , 
             TagBoxNote -> "0.10030820226757939"], 
            StyleBox["0.10030820226757939`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.10030820226757939`, {
              GrayLevel[0]}], "Tooltip"]& ]}, {
          RGBColor[0, 0, 1], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{10.499999999999998`, 0.}, {11.499999999999998`, 
                0.09690444145356662}, "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{257.0866459627328, 
               280.2377551020407}, {-106.85773494867223`, 
               143.84057995200405`}}], StatusArea[#, 0.09690444145356662]& , 
             TagBoxNote -> "0.09690444145356662"], 
            StyleBox["0.09690444145356662`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.09690444145356662, {
              GrayLevel[0]}], "Tooltip"]& ]}}, {}, {}}, {{}, {{
          RGBColor[0, 1, 0], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{11.699999999999998`, 0.}, {12.699999999999998`, 
                0.09667723580232242}, "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{283.0679769299023, 
               306.21908606921016`}, {-106.27345558462372`, 
               143.84057995200405`}}], StatusArea[#, 0.09667723580232242]& , 
             TagBoxNote -> "0.09667723580232242"], 
            StyleBox["0.09667723580232242`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.09667723580232242, {
              GrayLevel[0]}], "Tooltip"]& ]}, {
          RGBColor[0, 0, 1], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{12.799999999999997`, 0.}, {13.799999999999997`, 
                0.09812798238101064}, "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{306.88419698314095`, 
               330.03530612244884`}, {-110.00417831863027`, 
               143.84057995200405`}}], StatusArea[#, 0.09812798238101064]& , 
             TagBoxNote -> "0.09812798238101064"], 
            StyleBox["0.09812798238101064`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.09812798238101064, {
              GrayLevel[0]}], "Tooltip"]& ]}}, {}, {}}, {{}, {{
          RGBColor[0, 1, 0], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{13.999999999999996`, 0.}, {14.999999999999996`, 
                0.09337473578303612}, "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{332.8655279503104, 
               356.0166370896183}, {-97.78078561593153, 
               143.84057995200405`}}], StatusArea[#, 0.09337473578303612]& , 
             TagBoxNote -> "0.09337473578303612"], 
            StyleBox["0.09337473578303612`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.09337473578303612, {
              GrayLevel[0]}], "Tooltip"]& ]}, {
          RGBColor[0, 0, 1], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{15.099999999999996`, 0.}, {16.099999999999994`, 
                0.09347852685672335}, "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{356.6817480035491, 
               379.83285714285694`}, {-98.04769351278972, 
               143.84057995200405`}}], StatusArea[#, 0.09347852685672335]& , 
             TagBoxNote -> "0.09347852685672335"], 
            StyleBox["0.09347852685672335`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.09347852685672335, {
              GrayLevel[0]}], "Tooltip"]& ]}}, {}, {}}, {{}, {{
          RGBColor[0, 1, 0], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{16.299999999999994`, 0.}, {17.299999999999994`, 
                0.0903519892696033}, "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{382.6630789707185, 
               405.8141881100264}, {-90.00752645236378, 
               143.84057995200405`}}], StatusArea[#, 0.0903519892696033]& , 
             TagBoxNote -> "0.0903519892696033"], 
            StyleBox["0.0903519892696033`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.0903519892696033, {
              GrayLevel[0]}], "Tooltip"]& ]}, {
          RGBColor[0, 0, 1], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{17.399999999999995`, 0.}, {18.399999999999995`, 
                0.08858436314694726}, "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{406.4792990239572, 
               429.6304081632651}, {-85.46192003295758, 
               143.84057995200405`}}], StatusArea[#, 0.08858436314694726]& , 
             TagBoxNote -> "0.08858436314694726"], 
            StyleBox["0.08858436314694726`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.08858436314694726, {
              GrayLevel[0]}], "Tooltip"]& ]}}, {}, {}}, {{}, {{
          RGBColor[0, 1, 0], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               RectangleBox[{18.599999999999994`, 0.}, {19.599999999999994`, 
                0.08757005357886137}, "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{432.46062999112667`, 
               455.61173913043456`}, {-82.85353355073684, 
               143.84057995200405`}}], StatusArea[#, 0.08757005357886137]& , 
             TagBoxNote -> "0.08757005357886137"], 
            StyleBox["0.08757005357886137`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.08757005357886137, {
              GrayLevel[0]}], "Tooltip"]& ]}, {
          RGBColor[0, 0, 1], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{19.699999999999996`, 0.}, {20.699999999999996`, 
                0.0905420286308577}, "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{456.27685004436535`, 
               479.42795918367324`}, {-90.49622942489046, 
               143.84057995200405`}}], StatusArea[#, 0.0905420286308577]& , 
             TagBoxNote -> "0.0905420286308577"], 
            StyleBox["0.0905420286308577`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.0905420286308577, {
              GrayLevel[0]}], "Tooltip"]& ]}}, {}, {}}, {{}, {{
          RGBColor[0, 1, 0], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{20.899999999999995`, 0.}, {21.899999999999995`, 
                0.08499735205769224}, "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{482.2581810115348, 
               505.4092901508427}, {-76.23760476356196, 
               143.84057995200405`}}], StatusArea[#, 0.08499735205769224]& , 
             TagBoxNote -> "0.08499735205769224"], 
            StyleBox["0.08499735205769224`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.08499735205769224, {
              GrayLevel[0]}], "Tooltip"]& ]}, {
          RGBColor[0, 0, 1], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{21.999999999999996`, 0.}, {22.999999999999996`, 
                0.08956319588890248}, "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{506.07440106477355`, 
               529.2255102040814}, {-87.97907472892402, 
               143.84057995200405`}}], StatusArea[#, 0.08956319588890248]& , 
             TagBoxNote -> "0.08956319588890248"], 
            StyleBox["0.08956319588890248`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.08956319588890248, {
              GrayLevel[0]}], 
            "Tooltip"]& ]}}, {}, {}}}, {}, {}}, {}, {{{{{{{{}, {}}, {}}, \
{{{}, {}}, {}}}, {}}, {}}, {{{{{{}, {}}, {}}, {{{}, {}}, {}}}, {}}, {}}, \
{{{{{{}, {}}, {}}, {{{}, {}}, {}}}, {}}, {}}, {{{{{{}, {}}, {}}, {{{}, {}}, \
{}}}, {}}, {}}, {{{{{{}, {}}, {}}, {{{}, {}}, {}}}, {}}, {}}, {{{{{{}, {}}, \
{}}, {{{}, {}}, {}}}, {}}, {}}, {{{{{{}, {}}, {}}, {{{}, {}}, {}}}, {}}, {}}, \
{{{{{{}, {}}, {}}, {{{}, {}}, {}}}, {}}, {}}, {{{{{{}, {}}, {}}, {{{}, {}}, \
{}}}, {}}, {}}, {{{{{{}, {}}, {}}, {{{}, {}}, {}}}, {}}, {}}}, {}}, 
     GraphicsGroupBox[{
       GrayLevel[0], 
       StyleBox[
        GraphicsGroupBox[{
          LineBox[{{{0.2, 0.}, 
             Offset[{0, -6}, {0.2, 0.}]}, {{22.999999999999996`, 0.}, 
             Offset[{0, -6}, {22.999999999999996`, 0.}]}}], 
          LineBox[{{{0.2, 0.}, 
             Offset[{0, -4}, {0.2, 0.}]}, {{2.3, 0.}, 
             Offset[{0, -4}, {2.3, 0.}]}}], 
          InsetBox[
           PaneBox["0"], 
           Offset[{0, -14}, {1.25, 0.}], 
           ImageScaled[{
             Rational[1, 2], 1}]], 
          LineBox[{{{2.5, 0.}, 
             Offset[{0, -4}, {2.5, 0.}]}, {{4.6, 0.}, 
             Offset[{0, -4}, {4.6, 0.}]}}], 
          InsetBox[
           PaneBox["1"], 
           Offset[{0, -14}, {3.55, 0.}], 
           ImageScaled[{
             Rational[1, 2], 1}]], 
          LineBox[{{{4.8, 0.}, 
             Offset[{0, -4}, {4.8, 0.}]}, {{6.8999999999999995`, 0.}, 
             Offset[{0, -4}, {6.8999999999999995`, 0.}]}}], 
          InsetBox[
           PaneBox["2"], 
           Offset[{0, -14}, {5.85, 0.}], 
           ImageScaled[{
             Rational[1, 2], 1}]], 
          LineBox[{{{7.1, 0.}, 
             Offset[{0, -4}, {7.1, 0.}]}, {{9.2, 0.}, 
             Offset[{0, -4}, {9.2, 0.}]}}], 
          InsetBox[
           PaneBox["3"], 
           Offset[{0, -14}, {8.149999999999999, 0.}], 
           ImageScaled[{
             Rational[1, 2], 1}]], 
          LineBox[{{{9.399999999999999, 0.}, 
             Offset[{0, -4}, {9.399999999999999, 0.}]}, {{11.499999999999998`,
              0.}, 
             Offset[{0, -4}, {11.499999999999998`, 0.}]}}], 
          InsetBox[
           PaneBox["4"], 
           Offset[{0, -14}, {10.45, 0.}], 
           ImageScaled[{
             Rational[1, 2], 1}]], 
          LineBox[{{{11.699999999999998`, 0.}, 
             Offset[{0, -4}, {11.699999999999998`, 0.}]}, {{
             13.799999999999997`, 0.}, 
             Offset[{0, -4}, {13.799999999999997`, 0.}]}}], 
          InsetBox[
           PaneBox["5"], 
           Offset[{0, -14}, {12.749999999999996`, 0.}], 
           ImageScaled[{
             Rational[1, 2], 1}]], 
          LineBox[{{{13.999999999999996`, 0.}, 
             Offset[{0, -4}, {13.999999999999996`, 0.}]}, {{
             16.099999999999994`, 0.}, 
             Offset[{0, -4}, {16.099999999999994`, 0.}]}}], 
          InsetBox[
           PaneBox["6"], 
           Offset[{0, -14}, {15.049999999999995`, 0.}], 
           ImageScaled[{
             Rational[1, 2], 1}]], 
          LineBox[{{{16.299999999999994`, 0.}, 
             Offset[{0, -4}, {16.299999999999994`, 0.}]}, {{
             18.399999999999995`, 0.}, 
             Offset[{0, -4}, {18.399999999999995`, 0.}]}}], 
          InsetBox[
           PaneBox["7"], 
           Offset[{0, -14}, {17.349999999999994`, 0.}], 
           ImageScaled[{
             Rational[1, 2], 1}]], 
          LineBox[{{{18.599999999999994`, 0.}, 
             Offset[{0, -4}, {18.599999999999994`, 0.}]}, {{
             20.699999999999996`, 0.}, 
             Offset[{0, -4}, {20.699999999999996`, 0.}]}}], 
          InsetBox[
           PaneBox["8"], 
           Offset[{0, -14}, {19.649999999999995`, 0.}], 
           ImageScaled[{
             Rational[1, 2], 1}]], 
          LineBox[{{{20.899999999999995`, 0.}, 
             Offset[{0, -4}, {20.899999999999995`, 0.}]}, {{
             22.999999999999996`, 0.}, 
             Offset[{0, -4}, {22.999999999999996`, 0.}]}}], 
          InsetBox[
           PaneBox["9"], 
           Offset[{0, -14}, {21.949999999999996`, 0.}], 
           ImageScaled[{
             Rational[1, 2], 1}]]}], Antialiasing -> False]}]}, AspectRatio -> 
    NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
    AxesOrigin -> {0, 0}, 
    FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, ImageSize -> 
    Medium, PlotLabel -> 
    FormBox["\"Second Digit Benford Expected Frequency\"", TraditionalForm], 
    PlotRangePadding -> Scaled[0.02], Ticks -> {None, Automatic}],FrameBox[
    StyleBox[
     TagBox[
      GridBox[{{
         TagBox[
          GridBox[{{
             GraphicsBox[{
               RGBColor[0, 1, 0], 
               EdgeForm[
                Opacity[0.7]], 
               RectangleBox[{0, 0}]}, ImageSize -> 10], "\"2BL\""}}, 
           AutoDelete -> False, 
           GridBoxItemSize -> {
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]}, {
        
         TagBox[
          GridBox[{{
             GraphicsBox[{
               RGBColor[0, 0, 1], 
               EdgeForm[
                Opacity[0.7]], 
               RectangleBox[{0, 0}]}, ImageSize -> 10], "\"Data\""}}, 
           AutoDelete -> False, 
           GridBoxItemSize -> {
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]}}, 
       GridBoxAlignment -> {"Columns" -> {{Left}}}, 
       GridBoxItemSize -> {
        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], 
     "TR", StripOnInput -> False, ShowStringCharacters -> False], 
    StripOnInput -> False]},
  "Labeled",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, 
    GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
    BaselinePosition -> {1, 1}]& ),
  InterpretationFunction->(RowBox[{"Labeled", "[", 
     RowBox[{#, ",", #2, ",", "Right"}], "]"}]& )]], "Output",
 CellChangeTimes->{3.5622915453695593`*^9, 3.5622929518964663`*^9, 
  3.562293288234558*^9}]
}, Open  ]]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Understanding Equations", "Section",
 CellChangeTimes->{{3.5625165601081457`*^9, 3.562516570323772*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"lb", "=", "6.5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ha", "=", "6.5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mf", "=", 
   RowBox[{"N", "[", 
    RowBox[{"1", "/", "3"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"PDF", "[", 
    RowBox[{
     RowBox[{"BetaDistribution", "[", 
      RowBox[{
       RowBox[{"1", "/", "2"}], ",", "lb"}], "]"}], ",", "x"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", " ", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"PDF", "[", 
    RowBox[{
     RowBox[{"BetaDistribution", "[", 
      RowBox[{"ha", ",", 
       RowBox[{"1", "/", "2"}]}], "]"}], ",", "x"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", " ", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}], "\n", 
 RowBox[{"{", 
  RowBox[{
   RowBox[{"RandomVariate", "[", 
    RowBox[{"BetaDistribution", "[", 
     RowBox[{
      RowBox[{"1", "/", "2"}], ",", "lb"}], "]"}], "]"}], ",", "mf", ",", 
   RowBox[{"RandomVariate", "[", 
    RowBox[{"BetaDistribution", "[", 
     RowBox[{"ha", ",", 
      RowBox[{"1", "/", "2"}]}], "]"}], "]"}]}], "}"}]}], "Input",
 CellChangeTimes->{{3.562075313523759*^9, 3.562075317639667*^9}, {
  3.562075350322762*^9, 3.56207539461845*^9}, {3.5624168504165173`*^9, 
  3.562416928504302*^9}, {3.562417060214593*^9, 3.562417078191629*^9}, {
  3.562417135030636*^9, 3.5624171596577377`*^9}, {3.562417464318563*^9, 
  3.562417467439796*^9}, {3.562417536101103*^9, 3.5624175370230093`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVV3k41s8XRZsQoQgpSoUUCSXez0HKloqklGwhKURIorImCZUoUVlKyr6L
7NtX9n3feV/ejSgV1c/vn5lnnrn3zjn33jnPjLiVk6ENGwsLi9HK8P+5UfzV
G83wPESewR4Kea1aE8+mTfvV8vF63P1Zt+xatUqSg03r2XycnVVVVxFeq1Zw
rSbP9Vo+BHqbbItXr1VLqPUwKYrMh0ei53aBvjVqHvcGX2vT85HkHPpKLHCN
2g7me6nL0QXYeMMs12x8tdqtJmW8WCjExbV0OnvmKjXu/bmT/7F/Bo9xkSDl
zSq1xMdyIUtbP0Mwz02xP3SVWuuJPb1mxz4jcy67dPn6KrW9Xzfd3BX5GeGh
/NpS0qvUhmuZ77MOFcEgYy875wc2Na3yd9yNnsWYmbB9tCWTVW1ITDz3b2gx
3mzuZj0cz6rmej/molxCMeR7kmOuPGNVi8OzD8++FoNR9LX7hxur2tKX+xoX
tn7BnKntqzYVVrX0zxfdyV++IOHBmpar9Sxqgjm8Q6yspRDp8DGmTvyDaciS
0YRAKT78u385ue4f4q0nv9bIlGKfjWFKYMo/yGwuLHx0vhQn1PZKv3b9Bw13
i+ebM0rx/ma7l8raf1CKOfc+QrYMkkvmAmtl/8LS7P2lD0Nl8FizvTbx+TL8
dUVevpwug/2etS/mvJbxXim8I3ihDDs2Ke4/b70MGrenngNHOeI/mvC7HFyG
e6m+srxSOTxHgzM62pYQIvZ9U/Hjclzj+5OmKLCEvLGjDc2qFcDlS+K3036h
S9tn7rFWBfaq0g+IvfyFH2klAicMK6BXVbJxwO8XDt1Rtqy7UoHibKX6Jya/
UMAv+6PsaQXK31+S/bbmFwo1hcWyKBX4GLfvvpPVTxS/n70ZEVEJ6nOhxU9S
i6iwjxUxoVWhI+jcgCJtAdnT166Z/ajCf6fCv7kOLCDR7kjRZZZqbNrCfay8
YQEBtt0XHDdVQ9Z3lY1P6gK0rXij/VSrcf94G8trpwU0mwRsSQupxuzFk46q
P+YxoO2wedW+GkiUBPlncM3j+24ST6pDLbjfRtZVX5wDMaZRG+xRC3NL0/he
/TkExmrfs/OrhTYl7PYvzEFgkxFz58ta6N6j0kwl5qDEeq05uqoWLGdI/pn0
WXj0vwgLEqnDYcaLqEDfWSyHLfBY/1cH0Xdds0JXmWD79WmjyK56iMg2WWk7
0SDSqDEP2Xoo/S5nU75Ag0Jcb6e1cj1G1f9rVj5Gg43Ouldp+vXQ+bg275oI
DXUvrXZpuNfjzINuobA6KsKOCB25WluP1VJ6qbW7qNjqFXg5/+pX2O1wYLym
TkPpn0XembQG3OX8FLkxnowT+mW+xwoa4OpkofA7nIzLr7afOlTRAIm/4Tqz
98gIPzREFu5qwJOzzRmsZmRMO10UGvvTAPbhPYYFwmTEjJz1uqHfiG2fMv5d
i5wCa4WuxmNaIya1muQ+RE6iwV+hqUa6GXfslhkOBeM4wvOV7YliMxrvqIgt
fBjHh5eWhy6qNYPpe1sv8OU4/NJC3zLPNoPTcv2VJs8V+x6KyxafZuj23I+k
kVbs98YK2nev+N/zFz5fMwaNad+MtRotSFR49zNpeBTbw6m/khktYPKc371P
fgQllveSs+ZbQPTzS2vsHoHZQX6Top8tCNkp+M5ceAQxXUcKGtha8T1An5zN
NoItosHuTIFWKFU6dPgkDYPvo+S8AlqxbV6oq4kxhDVVNrTSsFZsru/dfOvh
IKiLw0Odcm2wub+nwZ3Wh7wrYRW6Sm3olfrZ0trVh/vdxPtSlTa83Zh/nlTe
B4H8WIfk421w0mgtPhbZt3KfLy57mbbBOXPwurB6H6IXuoQkgtqQ1DlH1L3s
hfZco5HLcBuoWkgcMu5B4kxRPXdoOwLi91+2+tMJx6hTO+2ftWPOpFe+jdqJ
Q5rjd6pftMNubYbIqb5O1Mdy7PNKaMeGiWDeG/mdmDttEjZd0A69Bze99F06
QeT/OFM13g7VRoMhh5kO9PodGLyt3AH7exE/2CbawS2axJyY6EDKtlhy0O9W
qBn7DY5Pd0BIaDRmjtYKlzDzr2OMDkg9f1R3ebgVXaxbkkZ+dmAx9uBV66pW
vJ4KMhvg6sR6x1KRrtBW7M+wb2xX6MQeAalct12t0D+6/1OFfyfaWrj3eZqs
1OVqru1biS4YrHUxfp7XiBm11CBO6S7w2iof7YhthNaWdx/dZbtgyr7+566A
RrDVRjBOHOkC+cGCL6tRI25LuLr/OrXiTyp9G/WtAbbD8oGGd7pwtWirosLB
BqifzXi3uq0LctGiH9vK6/FD7dOE3b1uvIpPjZ3grUNxIvXVLf9uyCjfvNXw
txa+7DJnAh92w1Np4Ec5dUUXWlLKE551o2Osp7yzuha7zdNeDyV145fex6A3
nrUw9s48b9TSjf0WfLPZUzXILcxvgHgPNNrW7Yivq4arfFWOQGUPttqZZ+Vn
VsJWQeztk7oeXC8SrHB6W4nzSl6PuJp6sP6yvqliWCVUjihYsfX2gO8YmX36
eiXYNBJ5GIwe2H6zOzAnWYkwA3/7auFeNEtX6HklrOjoDU0xV5de5Enw3VKJ
L8dwWtWjVvE+XDyYEFEVVIoW+mqa/J4+yL4JpFGvl6JM5tiJCJk+UC+MrZcy
KMXbj9Vc5w71oYXgODchVAqr9zWPB070Id0469GllBJMxdaFkW/1Icrq7lr9
zi+ghzQ8+9PYh6VA07R8pWIs2Xe8kvLshxl/U8QLhUIYKV16sv9eP8QVytqP
bS9ECutU4EH/ftxdHKexcRTC7MWiMym0H1VVnn4pwwUorxbWNojvhx2np0jx
owI8ELNc8KjvB23atbdyKh/8XfQTdcIDmLEX/LvvQx72qq/7a1s0gAeVx68c
M85BxsdPe3rKBjD2q65O9GgOFDadNtCpGcC8eit1jVwOVMkvEve2DmA1PUR7
DUcOTj6W1pudGsD3W4KipSXZcOnVf3GbbxAw0Ti1eW82Cp0j5EOuDqJ57Z7T
f7mzoBUvfiVTcAhtXIxqR9YMKLzg3l2zdQjbp3bubp9Mh1jo0kSf+BDs9r5/
PVyXjt+3O61WywzhXP0FqmpYOlINHpqdUxtCXEi+6jrRdPCzzp39YzeEnV/1
pRpV0zBsXqap83kIgcdu3c4OScEtUfMdo6bDmIrQss62T4bVaTnjActhHBV5
+c3yTDJO+rEGd9sOY4gm+3uHajJ2TyfMNd4YBkXbV2NgQzI6cihln/2H8Yq9
wlg66wPkTriYR6QMw1z36hupv0mgeAbEaC0PYzDmc4tZwnvI0M5yduuP4OnV
ePYNYokoMDpRGnx6BATPuYuXOBNx9IvGTeLMCCacz38v/ZGAC6Gy/e/Oj8BU
fLC2qDEBD+XWf3K9PAKeJ4dsQrwSMOVarMt3ewSxuilPAgbj8fbPjmD9xBHs
pbVs9EyJAz/PLHvV7xEUyCl3Ki2+RtuX4Ac6f0bQZWpiadHzGk+v71rb/G8E
jVyqiomFr8FXf2FV3+pRWLfss/P0WlkHVP9hco/iuXw8xWzVa2xciv4msnMU
+g5504ubY8FFPjZwU28UbmUprNP6r7C69FX6zphRDJqbekyufoE+VU3t4dej
6OVhfv47HYX0z7SR6LhR7CwXSj3QHIULeSQ+vqRRuIc/0J94GYXM1GFXlqxR
iH3jg6dcFMxidh4ZrB3FFjzdfM4qEgW3P1VFzo+CU7SYrt0TgdDFM5cMf4xi
Vb3aNueyCFx2W/6+4dcoDucY+2V8iAC3s/6egL+j4OE2f+N6OwI2dsyHN9eP
Qb9ikHvj1gjwnTt46vT2MYz8Fnf3s3mGawpFvev1xhB1qPPCAPtTlLV0phTo
j0EqmPZJauEJNjvM3rtyegy/C0ulHg0/Qem7Xburz46hOa3lanDeE/ALhrvc
txgDVTnigIfNExT9suZcdFux51mVw1YbDs5SbtLE2zGsnQ1vq5MLg8VFqY3P
EsaQ0lPxSI4rDLmLR8fV34/BY1/Pp2JyKMzlbj9882kMNyt/Jqm/CUV23Hjn
hbwx1DpmaS3xhOKif4Fj69cxfAuk7eL/GYJPOlZvS36M4Yt38NP1Y8FQkBEn
8GsMEdfMqczKYJRwj/SXLq3gqyuo//YuGC3tlwTLWcZxs1aqUt8+GAuXTEIr
OcZxTjRUynjhIQiX015128axj0/3RuyGh2iJJs63HR/H8Z9XFxyMHsDE+893
Q51xlBl/Sf2s/ABj5sXP2vXGYT9lf0R8+wMsSBxp7jg9jvK7W+6ozARCKF3x
ePeFceiIPzOJ9wmEVaWMwoDjOBraOfP25AbgO1V441TkSvzXIqwB+/0REUuu
jVl5txg/FjMjb/LHwVM5987EjKPkxY+9Nkt+cM7SZ5bFjaNOj60wq84PdI/7
Ta9SxpHqMr7w1NoPk2umQgwqxmFAUeI5E+eLzu2Z67/Qx+H836zM/v0+cG31
Lr85u3J+S9BEi6AP+P10b0vPj2PwC9uuEFYfGEyNU6J+jmPVwh+yXud9NKYI
1LmsmgB9s+4Ghvd9VCt7BUoKTaC+7M2DM0n3kHtGa1WE5gSGvHfKtIt5I0iv
IGCr1gQaF1NyvZa9YHpUiv2dzgQOBK22OdHjBbaDnBvyTk6g+nRi5qVwL5zk
axboOT+BeWMDJ002L1BajKW3OkzA4RevzFq6J4RP2hokPp9AGOvYF69BD9CP
dbfLvJiAsIv6UsoXD5SRtI1zoydAblN3+BfrAdt90hdr3kyA81SeO4e5B7K5
GNaU5AkoVK/vzR27hRNf3TxkSiZwb8iarjXrjnvaAW9ypiYw6vpFMnSnG9rM
7EzlpidQJEjuPMfuBgk3PaEU6gQ8eqgzBN0V9XG8zxJmJ0BRL56wznfFpqXY
wKe/J3DTiK65Qd8VH1LzHG5wT+LE0HuzQu+baOGjqMgoTcLvvGZf87wzdkh9
/Zl0eBKPex+Hbx5whhvScneqTKKYx/WpW5UzhK+7yoqoTUI5VkzY/7kzrKtZ
dnLoTiK+cDGh57Azft4S4qBcmgR59YScnv8NiA/q9iQETGKJo2j39YuOCK5Q
ST8bNInqk6lDGfsd8S1JJnDdo0m0Gik1yLA5osKFW+Fa+CQs3O7Z/5fsAGv2
tjD5V5MYaE9KC1u6jg8HTbTKMybRXddYKJZ8DfuDr+QN9U9CxGapdkT6KiKd
zj8OH5pE3QF73sTVV/HPSMdaY3QSJEbh96ghO7Rs38v3fmpyRV+f1Wx8Zgfn
XIaDw9wkMsslBdX/XkHOiNuu5bVTOOqdecV50BZHDvlHCMlPwTvnqF/ZF2t0
WQkpxSpMIcdQx8fmjTVuhqZ1ix1a2R8pfyPrY42UyR5hSdUpdJZs/iR/zBrb
IvbFKR2fwjmvymVm02WwzXWlnrkwBcFI74U901b4+lGq9rHvFLD+mlTkIUvY
dZXY8QZM4crBdoFoUUusZjPieP5gCgbzC+UlqyxBmNzVjwmZQlHHroarLRbI
WNfe/nHlHxJxUpP36DULRFh7jdR+nMKZ5nGPr/rmMN3W/Iu1fQo3VRtXPhKm
4BZyyS3qnIIF+5mnIkdMUc6/2dmtZwprali2X+Ywxe71FymUwSmYvBppLPp0
Ecz5qa5myor//dq9j+YuwPe/v9mxf6cg1HJwk8VDE3xw3e+oLE0G7c9P11Gy
MS44tUrNy5Dxmqcxsa7UGBvsXSdTZMmw4fpgOBNlDBfzz6ZiimQ4H5ndPKBt
DBXd43rr1MhIZtTWOKeeRdN2M8nOs2R8K9VdkvYxwvf6x2M3fMgw+HDIhsPA
EAOcnXbLfmTcPcSSPH/AEBUntjIfBJJRsNqtj53fEOFNH5dePyKDn1MAeZ0G
kG6r3dT4nIz+nc/eCV4ygFkvq5bURzI4J5z21N88jRqy26fRNjKmukrOq9/T
R4rklwMOnWS8UPX3M9LTx7Orqwt+dpNhnqeZly2oDwvq0yqeQTJqWoebjDJP
4DcjfZBEJqMxWmjrFooeZH9M80QvkeFzOTbJ+LIuXqw2czWUoMBh05EQ81At
/L0sqNi6m4J/vc3yEtZasK5s+X5KigKLcLeaPUe0IOd79Jb+fgp0tGeCZqaO
o+6fpKf2YQpeq8icNT56HIu/5+8RJyhQ9+UsCVx3DMZzDx9Ju1IwR927zrhI
A8Wnj55Idqdgv0Qs7doLDezIWOaSvE2B2Y7ng/luGmA4OoXuuktBUlB716yc
BgJoRk/EgijoDzgzOZysjhzy9iiBGApC7zor3H6nBv6h3Hi2KgoMqWTbPD8S
Qrm8vfNrVtYuCweeHyOBQ0Xz/PX/KPghsRg0so4EthdtG7qaKDhmSvH+/FgV
3wyYHsm9FBz+/Vjk2msVtFRLnjrNpIC8ah2N1K6MkNRXS7HC0wjfZ9JVGqgE
9gGrLkPRaYiIHnsrcFYJ/hzSmevEpiG5i6lYt1MJd64U2DrvmsbW4pps5QpF
2It3tmrKTeNq4sFErVWK0H7O/YF6bBrMnYf8Xz8/iDXePkbKztO4kP7Ut2lR
DjlztF+lN6fR9KxVd1e7HKxtz7857j6NFN7deV/S5FB1SnbmzJ1pyL00Zcmy
lYP/jsF7jgHTqLva6aOaLYvVdYc/JbycRvLqEyeuRe4DG/8sK3fFNN4K7eCk
5koh68HFpIiqaTw7Ytf07o4UrJZrTojUruBd85vRqC6FisnYKMmGaUzb7S2+
3CwJ3wK9fUe7pjH//kP/M+YesJolnfeYmYa84WGJO0d3gyXZLH2MbwZNMdn5
BxR3oobW7fhm8wy0PrZtfrlqJ0LkDPabbpmB+JuWm/ZtOyBYcDS1U3QGS+lk
C23nHdhfK/mpTnIGPB2vHg1mi8N08tv7NGIGpdsfWXfoia3o/XXba+ozEIm3
M38oJgbK9cldkpoz6H2pyalC3Y6bC92JcTozSOVS8SxX347gVV/iI4xmcMyr
+KvPoigKxR+89rSfQTR3THCevwju2rCYHXKYgd9nk0UHZRFoJt8WXXCaweXk
uIpmhjBa5K7HOLjNwHMiK/3xRWFQYBBtcX8GH7WXelpVhSBgJhJ5PHIGU5Iy
hz1EBeESnf6Yr2IGgcMKp1xP8SN/OfpBRdUMWuyijHS38GPZLNDHpXYGC7zT
b+NH+fBg5yW3toYZLEsoqne58SEmhePS0+4Z6HzgPymbyIvqEhsZPvoMrs/0
6fQJbgSHuMHuCuYMKFdcGutbeHDaT1XM5dsM6nXrzte58KBPi39T2+IMHn1Q
cHQp5AajpWzpCRsVN/6+tTY02IAt4yJfebdQoSrWzF2XzIFLx9ZVlwtToZx8
PuHBeQ7EJ30rcRaloslqpoGfnQMy1//Lat1BhfbxUb9HV9dD/bt79JN9VOjF
/vJvUGSH/bq2q7xHqfjyRdpf9dsafNkbxM7rSMXfIyyKQbOsUOoQbHx6g4p2
1bnM/kJWZHglPdl0k4qNMtXVBX6siG+sEd7iQYVpT4wDpxArgpzW7NvuS0VW
2zal7zosMMz2NdgXSUVKjODC1IM/xNeLfALpL6igjMxK1Er/ITRXx/fJvaJC
rjem6mXTMnHobPllhbdUbHXYH8wttExsXfznpvKRiqdRZFuWwt8E+Yh3tE4J
FX0nX6Zb7PxJWIxzmX8to6KzKCTKv2OR6HsUs1O/korNy30S3oGLRMNAUcrp
Oio4ZPXEJmk/iKy7v0vOtVExcGVvvXnld8Kr4ta4zRQVF/cdPev7fJ74br/u
A5lCBVfo7Rs7zswTjvxR169SqViyWdzvxTtPWFrnfb8+S4XhK5K8cfg34vja
7+tcf1NRrFIt5RE5R/Dqusj4ctPgHFA/qxjIJN6W83Ae4aVh6rmgwPQGJiGn
nDo9x0+D0G0FfsEoBnFSkvLeUoiGy+MnKB2pdCJ4rZm4ugQN0skBRS40KrG6
UkeA5QgN3ZT3vjs+UYhnR8gL+ao0FOQ6PuvRphA7svzbnUDDRp/h8lYymVCL
Kw0f1qRBvrjf7r4UmfC+p8hZeoqGZNU7ra5Fk8QPFXGWuzY0XJvUe/VHYJwI
yC4ZUrSjIXjC5oZ97Rixaa/pF7o9DYocXBSKxxhxUDjK89INGo4YH5PlGR4l
bvzk+q56h4aXge+cMvNHiOmcn9NL4TTkEIK+lbKDhIdMZF32MxrUNigePJgx
QLAnHky6FkmDsp9SuaP8ALH7maN1/ysalj+s3qKo2k9YOU8MfX6/wl+TfMfF
upcY2NfSfruYhonQ/27dWNVFvKHyeq8qpSFyq9LgUmInYZV8ZvfjchrsT/1z
6tTqJKYluj3e1tCw6FoUbf2kg/ghMiRa20LDJpMgrrCD7QQvB+3KpkkaZLKy
LLgyW4iO2n28r8k0OK2pPt1l00K8CHD6vGeGBqPTBUn5Ii3ENtZ5LhUmDYwr
GTFXNjcTMj9/ZVr+ouGOTFSK60wDcXxq3XLaBjr0QqiNmfN1xPpEnXeHN9Kx
JPpGxtC7jmiwfHSygo+OwZtLXuXsdcSZQe64TkE6VPKbSn5I1BIWHZuPL4vT
cUimkW+nSzUh8fQcM0CCDjt3829x66sJ8qmXL3j20HFl7k5MVXwV4fh1K3WH
DB2NmaEJI72VxJ2KneE6SnQI1nOaTl6oIIj7Nsrth+lob7gqvPC3nGAjksZM
Vei4tFvO625iORFUKK14Q42+8p4b+PZtvoyIzDjQF6lLx88qX91UrVIi4zUk
JszoCN1hkiP84DMx7zm/ztJyZV8g59yWP4WE0rkk6uBlOpKdvlXYuBUSRTw8
2d12dDyz9uttuV5A1NwfUv/qQodPoGgwn3sewX7p6S5tNzpqN2vbFfzJJfSU
j6+vvkVHoHnnf84PcomWudSWEi86bL6HnmWLyyH6rbzNswLpsKb3KXdSs4ht
OHBU9iEdzty3TA38sggLkcndKY/o6LW9bJi8NYuYaj/BeBdOh39nmmybUSYx
q7nV+2X0Cv9sG6eEnHRi7Z6i6PtpdLRcWbtq+9WPhM4qp7t/MujwmgxpftOY
TIQM77DyzKZDI9T3IL9iMsH7IljKtYCOMCEaNZHrA7F1/YWCKxV0CBsmcagP
viPMJzfETFTR8d0rKm7H+XdEfHn5PctaOpoz3TTediYSezyltC42rPCVrok6
3pNAyFN/dp7sWsEXb5qxeymOcKtNKfzaQ4fL/n2TTQ/jiIIEi1jtfjoeSJuy
VQnHESTTOmuNETqGQ1V9nY6+JbQbo+YVZ+jIM7P8HnkplghO1uvOotEhyde7
LSc2hmgM+PdZlklHQQ+1v2/0FWFIXPGVWqBD/qw7k8U9mriUrsQr+pcO9cz0
xcGvUUTehZ/cLSwMNHJmelC2RhHcaz9z+a1ioC4tuVPQJZIoMyWxT7MzwP++
4Vqk5HNiB4fmvxx+Bra6C3f+rnxKeOau+XNFgIGTUnUifApPiXaL2t/CQgyI
pjm+yU96Qvjn6/64v40Bqe1tVNuX4cSUtQH9hBQDpzcHvWVoPyaIjfzUf3sZ
UOl+P0yYhRBRRR2UrP0McJZpPXh9+xGhzXd+YosCA784El5wVzwkPpaa9U8Q
DEj2GB+5FBlIsF0T641SZ4CjftNUS08AcVFgrEtXk4ELkuKD1mIBBJeDTVuG
DgPxr3KD75b4EY7C1//zMmLAre5AU+BBH6Kmel+t7DkGFnUNUtfF3Ce2OzOr
xkwYMHnO9aCT/T7RUutSpm3OgLfD3CvaoDcheVOhZMmSgWNavRHyLV6Ez7Yf
RWnWDETyzRYZ1t8h5N1u52+yZyBPl8PUvvM2ESymklt7nYFdasbb2ac8iPGv
y1meTivxRM3iGv7cIiJ23E8bcWXgfcVs0jYNd2KxOfBdyj0GxAIjvlgI3SRO
39FOMPdlICgjRjnZzIX4sJsjji9gpT5PTsR0JDsTF7wfx3gEM4CgSjMY3CCy
JE9F733MgL9RtOj1C04EZ8fGF0NhDEyz2/gvb3UkiqUjnmk+Z6DU+j37t7Jr
xKaus08WoxgQ5OmSbImzJxx8BMM+RjOgZ5aufzTkKrGtJzp441sGCvh7bCle
V4j7AXE+Ax9X8vtNb8ap5jKx4dY6XctUBvjSq595LFkR0XYOfFPpDPz8d0Ra
+ZAVka2nnMDMYUD/lsy8bIUFoUZ6c801n4Goom4pHl4LomH/GoVfhSv8LNLi
Zr+aEVO8rVVspQy03HH6F6hhSrisOvT4QTkD7xZui33kvkj8W4g5y1XFQEnc
yJE3kybElh67qc3/MWC1oya7KescofeahV2qnYEXP3/OaFScIXrCbFtSOxkQ
mpPcQB0wJKx9Gl7I9zBg3ZScJM1iSNy1fiGlOsiAhJe2g6P5aYLD+O9c2TAD
T360HJlRPEVEaVl/PjbGQFOg6GO5Yn0iQ1pO7xSZgX7znNiwBV2CtDWSv2Oa
AcMfXSkV73SI+g3L/edpDLDQPEiXrbWJ8dna61ZzDAiYC7uS2I8TAvnmoW5L
K/i0nQ/yD6sTCR+qjX//YWCZvdnp0qwaIRe9d/s9FibE1WbHFzjVCB3vxfSg
NUxsPEoLP1muSnQ5XvLYwM7EXq1cYq+8CmFlUan2lIMJJaPOdmaOMuF1NKz1
FQ8TUoqnxVPpSsR6xe8vxfiYaN5fYuYYr0hE7r5o9W4TE6tKNa5/sFUg0tfv
mU8TYsIzwWT+qIg8oboUUnRwKxP/FpOfPeY4QNTRvvkVbGOi9PCcnNg6OWKs
uWRTxU4mfPcVxB88IUM4lUsMHt/NhI+71e4NYdLEclbwu6+STKj9kDAPo0gS
myONlTr3MeFQ9yljrn8XEf+g+K+JHBPGU2u8N7lKEPtv76gdkmciLSV5j832
nYS2KeMc5RATzsF5VNMUMaJD30jM4cgKvspX2xa2bCcs8Zkyp8rE53iXNstf
WwmGnFimO5iwvDS0P+qnMOG5I/D2kjoT224836KwWYhYt4mmfl+TieM/iLFx
fUEiYo0hxxotJu4Qa/kuxW0mUimir7hPMHFwKt6q+BkfERQbYDF0komE+MWT
Vuy8hLUhfVeaAROn5OcUCuV4CLV1Z6neRkxoBWnKmPhzEVuLizP0zzFBaBXG
V7NzED9vSLiLXmAi1srMlVS0jmjfFaJCN2XiBu9br60v1xDBYRdrQqyYCJLW
VOBqZCVsNSsfmdow4bXuCZv5NhZC45e0gYwdE1F77D4d2vmHtC3tqcCyPRMf
+Us1dXR+k35Z/e7/6sDEq4EWEcrHRVKHoFXcqxtMXBK1uK2s+Z2U0fCf7bWb
K/n6nKf5hHeeFOJzQEbFnQnd9flJN3jmSHZKL+c4bq/kJ0XGYb0bg6RJZcnv
u8PEk79hSrrbqaTtb+28Pt5l4rGY+sN3ghTSb6MWdU+flfzxO8s7nJ8kda0/
vE7Xn4lv7/aZqg2MkbJK3jQIPWDigoQx2/rXI6TQm+ueTj9kwqTNZ+jbgUGS
vaTTucKQlfoc1rrP/6SXdGywa+vDMCYeccWNzZzuIok9JcbOP2ViFgUTzlfb
ScvH3ydJPmdC9rm3/7b2FlLP0gaHn1FMvE8WPVmyoZGUk+EmXxfNBPdo69je
5TpSuM3gYlQsE6x6kpclbapJ14SPfbnylgkJ+W8Ze0kVpOPNKb6HElb6X1yN
b+FbCWmH/ybtde+ZuJrr5q4k9pn097DXhu4PTKx3ql2byMwl9dLH295/YmKC
/px7z+ksUk683gv3NCbGIgz7li6nkcLPZV86nsnEMiNG9eyGZNJ1LpGdAjlM
fOiJFaz2SSRpl/tSJvOYeLqQavDnw1uShPtMam7hCj+FIsv03mjSP2nDmwHF
TCjvp913dHlO6hsuPHy2lInxJvmEjsVwUl6E+F+JipV6M8dsFZ4Gk57qPKxc
qGKCtlu0NvuJP8nx72xQVe1Kfxiur7e8eY+km33+ZET9SrzcdLZD+bdIu+zK
+K0bmUi9JD1VHONMYhGV7D3YwsSVeZGOgfyrpIHWsNer2plYmJ1cVLtuRSoI
XLzc3rmiFykpKXMdJqQIFXOphJ6VeIyOrywpBqQbszUMl34mzubw+ez21SLp
vdufozG00g+jIltSNQnS7guRt/lGmQhXrvXoLJMnsfH8XbloK/2eXfzl1sHd
pKFKm9VZU0yEyBWohAxtIX32aPzPZ3qF76E3jOLVHKTIfYphBjQmwla/Hjv/
46eq81iMkTiTiR5zT6d4y0nVE1GrhefmVuqZzMX+x6xZVfLE9eGyBSZCZ8bC
m6yyVFezdiSGLzJR2f+v2UA5VHUkV8Xe4jcTP0pGODL+mqgW2yfIyv1hYoPf
MZ2HlmyqUds5v//7x8Q79kzDH+2yh/4H7f11LQ==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 1}, {0., 2.8632357660484997`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.562416923960129*^9, 3.5624169291418533`*^9}, {
   3.562417066221231*^9, 3.5624171599926567`*^9}, 3.562417492781152*^9, 
   3.5624175395494556`*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVV3c8148TRiVRKkkRlfmlkCIin/cjZEXJKBKljJAtNMysjKiEjGxlS7bs
Wfbee69Qdqpfv3/uXve6u+f+uXvujvWeuYo+BRkZ2c1/4v9aQX+6pXRGneCy
X7m+1nZGZKcUk8UQoxCkBhZXrjf8vCgYGRL+mVEaSm6saWNkiuJXGroyIxjV
kL2eLiXVGCvO4csS//eEJm5pnep4MlEqvq1wP1iXSwfesRkpB6m6xGfd2it1
g3Txk3GsRn9sVvym3nrRa0Y95Cft839OuS1eKcWUWxFugKWAWnPnr9QkAXZS
xsoJI1Sq/XwZPXOEFE5xN5Ez1gTJFhzpvec4SFSjrjE3uMzgVNjEPKQoQCoY
bm2oULOAg6BYWOl1UZKFsp7C7SBL7Lg7QmVMJUXiKl2tXumygigtfyhj6xXS
wBlPKT9GG7DWuLDJdamSAiOPlnJqPQLdyd073TK1SAr7k8SLw22hx/AuOXz9
HonM6WL+jUE7KPuPZfF6G5FyvtefXzzxGNx/91aSFi1ID3V0Mj11n0CdYYzC
icuWxNa4yH8y9imiPlwJ3Qp/RuomuSTnjT+Dc+iLc28vu5JeptJxX+dyRAHZ
YO/po56kyyxxcTOGTug2e8fqPeNLcqwOPVCm5oyPlZM2pkuvSJqOY1f9Vp1x
zGaZM5s+iCQkzOunGeQCE98MauvNUNL+7zZ1nCKuYK4TnjC8HUWajS/a86PL
FZKGzMmfc2NJVdqUcsX2zyHz2fjF+fcfSFGHr3l4M7pB6byJ8ujJFNLThuDK
GwVu4GzhUKZNzCDdcB+mYNdyB4/xd+uxmM+ksySeS4u/3PGhNrgriSqXtHfV
0qkw3ANIuc+wPFFAmkopKPIkeaKlRvP1cdkSUrnejm3VQU/8STzuVspcTopg
VhQ76eQFQqUsNmmikmTfHmg/f+IFaFTnPaZ31ZJUfQdy8kpfgL1v0TXIvY7E
L8216qbrDeYKdZubpk2kPdtmgtcpfCBg+nCJd6yFNP4515Il1gdb0efe8iu1
k0pMyDJmpHxxhPepUd9mJymUXf579rgvvA8FTid/7yHZ9r3idXX3wxhb0taD
swOk6296ja9yvYRAeeXNI3rDJN4r7IlMNS/BOV/snHt7lES14+HUpKE/bLtO
KG+5j5OstHtfa+4MAM3G9xGrsUnSnfw/n0rUAmDA/fX5mP0MSfEwewtnfACq
pC5wQWGeJGYpu+SzGgC2i0stSVqLpMM8AfwaQa9w1j5pgIP7J4nCPUupePIV
dnw+/dDw+Cppabj7IYfIa/RMXNHdRayTBsV/+3h7vsbKa6mMdy82SXUhrMlL
Xa+hf1twuH/HNilv5fK3G9xvYCdA3h6f/oeUoGw888X+DWq1KRVWa8gIF6rP
/71gDITWHl1agd87iFOyr7wyLQIxcjO02mRhF9Hqbj7TVxMIxh8j4fd2UhFP
K5UUdp14i3KVQhl9aWqCYwdvMr/tW5xeTrceSN9L1F+i3qvR8BYH71OZXZXf
Tzxynn7owhEEuUX7waQ9B4nq33H87a1BCHxwnqBjoyfMxZ/7/+YJxn8OFps3
uw8TR5/qLnG5BGPi9JxPasoRojQf15W7g+FhffbUxyhGwmiDJfPxmRA8+s+E
eT77GEEnsk0X6xGC9iNX6fm+sxAFj3qt6wdCMHln6FIw50li78+g8yd830E1
nz39QREbkX32UZDc2DsEC74ri+fmIHQsVNctxUKxrhzPxpzESaQv7M+vnA7F
gomE3fxPbkKD9zvjd4RButEy1774FEFmUv/kSHAYyh+zXYyN5SVUpr3EjS+H
g5+F/Pw1XQHiF5dhxJvwcDzhGXS3dTpLxOlf/vPlZzjOJ3AeN0k9R6yOkpfu
j4mAIM0Ld8uL54n3rMMnRTcjIDbUzjAXLkzI3C12uaf8HjZPVOPID14gQgae
SGX/eY9DBc3VB4QuEpeYNeMG1SPxosFkLnxcnJi9JbKLKjUSzXtPaC8kEcTx
+cf3U/mi4F+wRc1KXCKsaGYOSWpG4cVVK2M3aUmi+pRGZadbFDIZ81x8b0oR
5kbCnGT9UdjwndEzj79MVHrFdwTujkZi6jl76REZ4uhHeg8ewWi8IGeczzwt
R5RO/phU8Y7GTQH7DpvvCgQ95b3gqexorBrvxIChImHE2SL7bCQaLsU79+75
oUTQ6aV/jL8QA8Ep6USHCGXC4PlxTTG9GATQzfs8drhOFMb47Wnyj0HF2S+P
qQxVCL0RE+ONyRgUnKgV49RQI/LI+pj86GJhnn2k4NZddWLvSYU6ViIWpQGJ
SVbWN4hsHW7eK29jESn3fiStUIOgdgzuHyqNhb/0nXzvZU1CJ4LSz2Y+FnKK
twXzBLUIyv7xhQipOIhQztK9HNQmNDSj05eW4yBI3sYZN69LLPapUccwxWM9
f8sAGfcIDx0qfVWpeBCkgZWYJ/eJz/fNmXIC4/GHPEDbkUOfUJhke2RYFI+a
7i+nbuw0IIYfdDYdnYwHw8N8/pw5A4LWjOT+VCQBm4fb+rpbHhDxS0tDvHcT
EKYkPkTRYkSIW8eJDXolgO+DS9vzbmPC2J5mSaI3ASdWOzvvk5sSVa49tygd
PoD7Vb/GvWEL4vYuv+zc+A8QS2zauO9mSfzwlDhg1PgBDOGFunZ8VsRJvw9V
dSc+IqLP3U3Z35p4FvxI4FX5RzhENK+rvbUlDjHx+EjOfYTgyhdWY307Iim8
f+LnoUT0UredeXfRnuiKlgq7oZ+I7m8fU9u2HhPnUg5SMlMlIZa+eLis1oH4
yl91t0EgCfRH744nNjgSdz/ZFzpqJkEhhyOou8eJ8MsZshhJSsLgYsWG+k4X
Yro0tS9BKRliGpuftO89J5ykdIU1bJPB+fND1rmdbgRDNf2rPZHJeNuaK6ee
5EZI1T2VebiUjKjWa08Gd3gQ7zvkP519k4Jc2eZ7b757Eec1ftOMFaYg9c/l
v3rZL4j63gyDwPEUPM2yrZZy8SY2h44wr59PxQ+vq9f9uX0JtdkJjy/dqbhq
9x+/RJ4/Mffw3YgpeRouJVuK86kHEK6LiuInTqXhMnGI4G0JIDJWPi+7PE2D
k3oLrWjrK4Lmr8tt2ePpWP7P/h7P1hsixOimDq9MOnz5R7ftXwQSHO28dw+a
pSNIa/Dbfua3BJHYdb+v6J+fGvNXrwQR+YlB2bn8GVhhKLMtawshyO64CCdJ
ZuDC8lH/dcd3hAz9w9zwGxkwe8JetMwXSrQ5Xsp3ccwAk8Rff5vgMGJBdf7L
lcYMjGur/n0Z+p4Q2tNFIkYzMCIho1SiH0k8KS4rFljLgIa2ftF7pihiN09w
6eHjn2A/wcuXsxRFsP65VDlk+gkug0+uXcuLIdQ/BtdZ78vEXHJ766eiBCJc
21XRgDUTQgwn9ogqfCBG6UwbNM5nonJ4Y9G95wNh7iDZRNLOhOX7C/7hZInE
C5WF1t2pmegtXGZbs0wmmnd3q26VZmKUE0fGDqcQDEXl7fPtmTBlWTdZ+pJC
xP4X0tmynYkdqSsLYfRpRNG2ZG+Y4mewyf2sqHqUQezM5NN6efczOLInp6fa
MwgFw6P9zjafcZlxKbbu/Ceiq2VhQD/8M0RuP25a3v5ELCeEjJyZ/4xdx4Me
WkV/Jjivf5+u8MmCt4GvhIJ8LsHkJCtmGJ2FEEsVLffWXOJAapQPdW4WXnKb
9ajr5BFbVKr810ezcFol68eAQz7RXJprPXghG3zDlvuiBwqJqu8HqlyuZkM3
KJ8s4tkXooDZmIFTLxvOHAsrjseLiHh75nwT/2xYv+UQOmFSTDwRcPmzMZGN
j+FHvjgFlhLmOr3Xwn9lw+xW2EvepVJCz/cfeR7MgbHZILu9UhlxbXpCykM8
Bzi324tiXznBEaXw4tCbHLiSSVF5RVUQjfvp6fklctGYkJ0af7yGqCCZ6reo
56Ig6L/hfcE1RJ5JdY6NSS7045jM7A7WErE19pqFQbmQ6NW4b7T3K2HvNPBe
biEXG2wJaZ7H6gjTVOGlOYo8rP5mlc+PqyPu9flf8j+aBzutA4/YBeoJJRHJ
8Q6pPIhbX7hZrNRAsC0m8NwPzcOLS/c6+uKaiCMsZE8pM/KgNpzgc+1kM7H3
imZ9YlUeZFs9eUzMm4n1BBrzpaU8qMoc7LtzsIWo17HIcpDNR8kQvXOqXith
1yiKkJV8aA+YdBsrdhC0/NkTX6kKQN03ssKa2EHE+Qn4/mIuQIY4Uz/77k6i
RfG/Hp3LBSjQH3JiqOkkTtfRW3MGFeDk8f45lpvdxFDNYkKmSCH+2meq7Czs
I2z/M1Eav1IIPfvKizz8/cRez8mfh+8WokSU4OmM6SdEZQYkHnsVgsXjP9Pu
gAHiTeW3XvQUYvSyefcPpyFCtiyetuHJFxjJMA2wdI0QgydZs/+8/IIQg3c8
31lGCRvncC2B2C9gkEzcFa8/SkTjzcc3dV/gc1gsuml9lPhV5Cx5i7kIQcHO
NZr/jRPpBVq2U0VFaGb3Z9fKniRkmLqYGVuLkCB24vUnmimi/7FKhcJkESRP
v9E+fH+K2CMqfyCNthgbNJRa+w9PE/dzhZNs7hTjYbQ1K4PHDHEk6+AgOXkJ
gqN8SmvezxO3fX+pjTOU4OEnL86/+xeIGL2JumreEihFkR9PcF0geA/n5/to
lCCRhs3i+sPvhKTt3beHM0qw99yttnLuJUI4/GZC4JlSnPvpVqkt+IPQ9Kof
cRcrRckpqz8a9j+IZzaXWOwul2Iyp3P0VPEPokzxdKCmVinoKKaGbin+JBR/
/3E57lmKme8H5zitVwhdnQTtj4OlaK/kcZaZXyPcFI69ezdTimNPuqWTsE4k
CAe0e6+U4nEzh+juwHVinvbJFVPqMvxn39OVjQ3CtkRJ9JxwGcLj7w5wxW4S
vidX6b/4lSFxWT7+Yfg2kbbXWDk1pAzuT/cTjmS/iZaNQZ/3sWVQiIyySdf/
TTC01FK45JdB0EF+8ongHyLaJXzp8kQZdhXzrP3u/0vkjErVN4mX4wWbeRt5
Njk65VyW/WTLIcxmGuq7SI61tGIGRZVy3Dxg65JzigIiT0V1aw3LcePFG4qF
GArkHTqzVvq6HJftSr2pw3YgX5rpZOZ0OVqC6+zEk3ehN+nmZYuf5Rgbt9DQ
XtqFrQNvjfn/lCPa9H2YoDAlxAb2ZycdqsCJjktclJWUKHi0SyGWqMDAqk3r
w+nd+JKwZB0YWAGmIYETgerU6N/L/04lsgKG7BzpJQnU2LYyKT6QVAGXYe5j
+RvUIGGSyq+kAqu8+WvHImlQ3NUX4T5bgfUNZsWm1b0ooaqpsZWoRCvNr9a7
9ftRbhxxTHO+EpZn2Et4Dh/C5xkTE521SqjTHDjmI3cIcQ/ECu+TVcF9s8hA
59khuBt03TKjr0JRW+Kc9sQhyN07GPpcvAqXtB7mdX6hR5Om+9E03yqwq7xn
vu/KgNJu1Qefg6rgVniXRaqIARk32fLyoqrwXq72d/QGA16rl9ysyKqC4cGV
oiGLI7hxfTOou7/qX//pMlkbHkW/nOnhHXzVUL4/VVpoyoSGmov6VCLVkPQc
vrScwYRiGersfZeq8XdZNfrzChMipT+oHVWvhvnFr9GjDsdwT2LkDZ9DNUzD
I612BDNjWkSdTqOhGgsKBZpsE8exykXan2pagztaHvtbfrGCGJWs8bavwVwA
/8vWU2zwiJBzevC8BvntFLqit9jAQK+2yP6uBrY/OXJFC9ggTG7SFFpZg3j+
o5eOOrHDvi/E3+tYLf6md7lOM3OiNOi9rAFXLSgf5XC+VuEElUrcX6mztTjw
0/p6ihcn3tWmm/+VqUXGwqcz59c4UZBdfc3WqhYf326mpXZyYdt/Zb/e11o0
iFCuj6RyQ/rKVs2l9loE7vyeuzDLDV9KMucTQ7Vw3BPDbMvNAxYHmqXelVpU
WTVu/I3jAWHM1nz95FcsHRG7TBt3Ck7SygGw+4r+546R3wp4QbGZfOAY5zeU
i2UXKn8UwLEGyZ848w22v/1mW+oFIBTd06En+g0UohfOvV0WgL787rA0pW+o
y7ziNXbxLGrf3eOUtP2GIL6xusS2s/AXYxQzqvmGvUTb1NkDgmB+5nE/16gO
jYclyxdLzuO8MotMv3UdPpGF/LReOI+rHFnc5I51UFNKmpY5Jgyn+pEFhdd1
UHCuauq1E8YoM8l+sKAORg/SPKqFRJBY9NN31956vM1O/URbfAHCf+/mqKbV
w40uxNL1oDgUlUpdL+fVoyn9d3SEnDjuh524JlJej3ZZ1tt0zuIIEBmcYuqs
hzfHDRL1kjhmzLUYR3/Xo8eO64lEOwnhw+rPLJQakNXw4QV/GkBeriDpN9+A
2bVbjJ87LuHogSRap7UGhAed61NavwR+nT19FmSN2JK5sZ+FURK3tmqs1egb
cTmqsU1TWxJZ5y7HHxNvxFA/A5natCQMYkGV5NMIWX0HGXcqadS7CTVWn2pC
V/tul0JrGYjtr6N4db4JXCN6CUORMvj4TldES6IJN0vcC6/Uy+B52suoRfUm
7GOZP/2bUxZi3dNWR12a4A3Px039svh4OuKIcVcTCIHNcHcNeUjOuGZQSjZD
/miO4Ky3Ih7zN34zkW2GaNFSb22pIjKsGSeaFZtxwP7k4K81RRz/k84YdrMZ
Jnu8I+/qKWGTbsD1jGkzftp15QhIXf23h0XUNUKa8eam63gclTJOBMxtJn5v
xh1qqyShzeso1nVKzPzZjOlylsTYIyrQETykWbjRDIZGw0ckYRWEd4rl1VO0
wECf5sIPaxUcZfG2XWRoQWs9e67+sgrokrh/CqEF+wS1P0euqGJXpf58iX8L
jLrzjpex3EDc282w2sAWPFB54jV76QakDf2utLxrQVbiCtNlgxtwpc5OGo1t
AS3xI+Bl+g38Ud5ptCuvBWd27U62l76JjYGYCYXhFrCZJj/rsdPA3PrQYIdA
K8qO/Lhwg1ILOYb+5QrCrfB0MeZIFNKCcxeRUHKxFQpp+ezEfS0w5EaYJsq0
4rDqM78zZVqQtNXafna7FRe0PhldcL6N0JVORg6vViSHN+3kotGB3HKDmtVQ
KyprIu2uJt/FIV2HC1PjrRhmnBKbqL6LwWZe5tuz/+px61HFjN6FTYbP2OXV
f3hPrpu8ZNJFpLm8FSNNG6bbRLaEfXWxtlDpXyrcBl8Dob/ztvcQN1v4jfZl
G97vMjdlM9GDWfA1duM3bfAIcBk+76MHEemxp1UhbTh4WPuWdbIevkVQ8z2L
bUPMZhC96bwelpU1/Wfy2lAiSfK+a6EPIndNtXKsDUfCTPjMnQ3Q8/zswGPR
djCRn/xoUf4AMQJV5zuIdpjTblEcn36AhwMaLwWk2/GoJI/0a58RyEScMXW1
HZtG3EdlbhmBa7YxWk2vHeH9ho1sq0awUX5ocMa/HWyVKwIcQiagZfmwOD7e
jgvUShlp3aaQuPF8YGymHbZNJeul5Gaw8r9TN/q9HXbGI04Up83QSX70w/BG
O9rNpyjoHc3wftJLp39vB0p9j2U84jIHf4ZxQ5tQBx7sGHzMJ2EBJSn+5HK3
DhTJ7+JdT7GE4zPqd2UvOmDTfPxOVKUlMrInPUpfduBl8vHDev2WoOeOvFcc
0oFfYyHGF/da/du3B5gKUjrg4VOqx2tqhYedy16f2juge2cnE5+QNXyNsg2i
ODpRtttRTbPLBrMSqV40pzrBythZ3rxiA9mj8Um2ZzpB4/SKyYTuEShqAr8r
inVCPVt2356rj/CYw8Z281onZBW2chaqH8Fg6JyHytNOSJH6T9uX2OKSekb8
ztZOdBaFvvWst8d73o815l3/8CLdX0d+t8f2jqiZ3v5OlHBLjw8eeIy8TH++
T1Od6FNuYWpXfwz+A+bZ2r87cfuZ4Wz4yGMw1/FV5XB34VyKCdtXsqdYk0ge
f+DUBdsBVbVQHQd8iZsLs3PrwrEKnZuyzx3gSsWr6vGiC0l5pC6mjw6gbU4p
i33ThZMRjK3nfziA607a+8EPXVDbLtWElyNuOHzSUGvuwvMTJdzFhU7Izs+t
B2s3godSU1JPuuAJy8bzq1zd8E0MXfc97wIJlwsXtU93o5p/OtFFwQX1cvmJ
T853o2ZpzjfZxgXjXQUe2fLdiIgVld/xzQX0a0USp626YSCw8bHV3hU25yqz
GCq6seLosc9m6jkMhE5GvartRl4ZB/1JcjdoCD/z2dvYjcXJe+TTTG64KCZ0
j6KnG4I8oz/rrrqBQjJu//fv3TCqmtqczHWD/3U34yqmHgzsed/o5O+OJAvp
kzZWPfgWLffuh5onwq2iaBbteuA1IKeuZOUJP5vtNSOHHlDcbBCv8feEhX1W
wx2vHpz3pd4+WucJEWeOp1fe9yCFUhIiUl6o9N/ZyfatBx/uxIvaib7AUFql
TwtrL46my/77tnzQvLBz/tx/vVC3oExNuOODUt7LioG8vTiylv0hxtkHUUlV
e2+K9OK5kKHX33If3Euo9utX7IUT+ffDyvK+mIyo9Z+y68UtKpVQ/dt+WPCt
f/O7oRcmbvtIAhH++GXcHsbzpA9u+jsktmVfQ01Y+xW/Ux/cwwsa4rReI4V8
0kPQrQ+y1U0Kd8xfQydk3ZL0sg+ai33y1MGvUVbFJHc9pg+xocP9olOv4XlS
d8X+Wx9cYgccaXze4FDngmItUz9iGjfq+4YDcfrS7j8Ghf1g+fSszLA2GBlJ
yf91l/bjr3Zi1oGxYAjRK1+Xr+7HDcE3jG2/gyE+FRJ3uqUf1ULPveMEQ3DV
79SVpcl+0Lw4Lf8sKgRWPUohj+kG8K1xwfig0zvkWwae8zUaAL36zxID5TDI
xrAafjoyiKtut1xfy0VCKISWq5p5EHu+D1ze9SASJ1/+Gu9lHYQVm8rBN56R
2HrccW8n7yCoFen3k9VEIvX6C52bEoP4lbw5HcAehUPky+q/Hwyid5Pzr0JC
FIbulErLFwzCxWHru2FONOxY7rCN3B7Cg2bOK0E74nBPWeBGv+4QLMVelkYx
xOHqc3LvLoMh6JOpVxbwxIFrJna5wWIIXxhDY1iU49CeNV1a4DaEkLNV85ER
cRBQtLoTmDIEmTQmvaiL8Zh+4h4uuz2EE4kP0oaeJ4B3Xp2mS2kYPUz0EROy
ichTUyzxVh7G59g+D27dREgVSVoTqsN4Oqgj4vIkEbdenumL1xiGIX8Un01q
Il4I7Em2uT+MXd+SLtyjT8KkzRcFusfDGF04IGY6mYSo32zeSnHDMMq5UJ4V
loJD+5eoKreGcad9xtj8vwy0Fnl7yv8eht2UWzu5cAZeP+SkbPo7DD6zB/GR
0hmg+3ZrR+/OEZC7Kob/1v1nu1f9XqQdwUSAXYFURAYO/Ar9cYx9BJZHznz8
e/gT9k5d7re+MoLbArStZgcysbMkLJ09fAQ/Blm6/57KQq+4tNzQ+xHol8cU
chNZSC+YHw6NHsG+uURn3etZuJVDoqP7MAI+qakBCvssfEodsiHLHAF3wjM+
yuos6ISziw3UjOA82hwZ9bOR9zi5MujnCNasx31r0nNgIlTYs+fKKNa0KIop
nuSjtLkjJU9pFJKsjSePvMrHYdMlJ0PlUYyy/BwhfcxHSTwnV5X6KCaz2z6X
d+bj0JEAK+e7o5Atzt+dLFSAwk09mvVHo/D78IqZYqUANCW0pPGoUfg058jz
uHxBsvy9qOK1UayftD9s210CIV5WApuj2Dr9py3pRwmKaYf7Sn6Ngl+uRe0x
ZSma27SPlJGNIeOq6+TAyVKsaGu+rKAeg4dRWArTjVIQVsrPao+P4fjXDP0H
5f/iQwmNVpkxOLUvObjGlGF1junAZNAYmoYYvc+4ViAwYqom/N0YyrP0NM6/
qYDgtSwn1fAxfO57ZCgXVwHLTKXF0ugxPO7hMQuqrsCCvXNjWMoYJJiYTrfR
VGJi16Tv9fIxjE25jXeFVKLjxKc9RQtj2LoUNqhaVIVsVdkdgdLjsDz9H6vW
uVp4XclzZ5Ydh3iI7p+oy7W4LcVDFS8/jmpv8owVjVpQCNLsy7k6jq9B89lV
TrW4StfE0K0xjjF5qO1vrMV0841TzKbjoBB+dkbe9CuYrhpcj3s7juVCFfOw
nG9wknOPzJoch5XqG84ftg1o1XlwW2BmHHu0Vsg9/RrA8egKY8rcOHS/PHh/
Oq7hH48ffBO7NI63Zj2X4loaQP8rwuP11jhUVJNuq/E14mNqjqkF7QToC2kU
8qca0Uw3fZFXeAILPX5WlkLNYB1Q6I51n8BFf9HssKYWeJdfTFf3moBC47je
mcEW/PjA67HbZwJ+T6z3N863oNyKVsgkYAKF6hWPeKlboUfV6n8ubAK7fuk8
NLvcio+CmrJlGRPYf9rkEm1xK/i9DXMG+yYwnfN6YyO3DWIiboGM5ybxpvgq
j1lzBzrvMQpHCE3ChSVsf9dwB6xfpnWdFJnEizKap1eWO5Ay0c3ELT4JkTtb
5DfpOnE8kC9aWGYSO+UnsjfVOkGx3JmqemsSWuztWzb/7oa6JJ4aP9dJXDyj
4OO40oXbx5s2ydsmQcX5UKJVoRe0jFbZhR2TsKU5F0p5txdlhw5bPuqexPCx
ZK4rj3rBtUdrenpgEjxGG9S7onqx+HOys2l6EpPPzIxJa71w/frnc8SfSdB2
GG7Uxffhow2/meipKbRURT0vPjiA1W9+oxYuUyiXkbClOTCMfpqOB9vPp5DL
cMeZinkY5YrMi54eU3jlm8VLyz2MgMakX+99piDNEOIhKDGMU6019A1vpyDq
mLk1aTEMnR5yWZ6kKXyuyGhfaxtG9dSj5JHWKdRXG/HNRY0gZKeOjQrHNF4V
02tX3hzDn/tHzrdwTeMtiUq9V38MehXNq9d4prGyRRhsWY9BwFXKTol/GqPU
lisaAWOo/cv9RO7Cv/yfbtEBX8ewvvXTiVCcBpfgCYNl0jhuLL/wOWUzjeFJ
41ef+SdwaDA7hqJyGnmNX6vPnJvCy70ODrnV03ionPnXUXoK1BelNR5+nUbV
9Pua/htToAhp3dfZOA1zO0fRyqdT+HF90T6xZxqOqpHHpKun0FzFfU15cRqS
rbdKD+lMwzc17FcE0wxyyzrPqL+bwS4HFzVRyxlUv3E98enSPLKW5zdLrGcw
nKogGXJjHnoGGpEytjM4y9Ju5m8yj8prZ2ZVn87AwXL0RNrbebixDTiZuc+A
v3zCOW12HjtrLyTH/sPt5Ryyqg1eAMWhJXLa8hmECXonNf75DrJEnfRRulmc
FZj6Oku+jOr5LrPIw7Mgs2dGxv5l+Apc5799dBZ1TIkJLizLOJInldrBMgst
EUNnOdFl8NdwJ9dyz6I0cGe9oeUybk/8SEgjZjFv/ctiY2wZ+aye758Yz6Lm
qmN4ResPWIWm+9GVz8Lp7hbnrd4V5G6HepZXzoKp2X4n5lawrePhYlUzi9nV
Bj7B7RV4sms/aq2fxWPzR4nyx1cRnkKt/bprFkL7U2XO3l9FVbE+L93CP7xj
vS9/La7i6NixuoNH50B/fbOOkmEd2pd3V5UxzYHvU5/TFvc6Yj78KLZkmYNM
lBQ5mfg6eB9+zWxhm4O95tNqiXvruLRqG/qKbw7J/HLdYenrMN7danRQag6R
a8IB9UobKDrtRXXQbA7BByJZqkI2Idx+pOG1xRx89qjJfUrZRMazD6/oreeg
Wnk8Kb10EzEN1UxH7efw+kK92dj0JrzMd/GdcJ3DPVt3Lx6xLah8dr3OFzQH
ETmzWenhLUyJOYTKF8+BuT36tNHFbdwd23unrnQOaUsNv+qub6PXJ5xdqWIO
+qe+XJB+sI36/sIU5do5SH5vffjo7TYyHbeKb7bOoWOaam1gaRvPyu3G9Cfn
sMbkQTua/BsHFax4XWnn0ePuIh0s+BdRZftpxA7O48W5Nffd1/5CQDR1ZvnQ
PFLOV317a/wXV7mnE3QZ58Frucq8L+YvvCl1WC9xzOMH0o4K7yGT2Fkhz0Am
No8LrVpkvs/IJNYuspI56s8j7kSEUZM5uYT75+LB8w/m4fFhWCnUiVyC/vTt
ogXjeYSqrMba+ZNLCDIFP9G2mEdpCiOXcTq5hMXG3lXxp/Ow0vlz5NwSucRM
1sbMr4B5vHU+8NjkEYVEP19z2+Mv86iwmPB0998hETl30GFHyTya3p0MSora
IXEvUZXLr2weeRRxzWOfdkjMcHTZR1XPw0dz9+037Tsk1o4NstQ0z2PW4lff
LNNOiYPU84b0E//mRvi1fETyTgmZyd3bafsWsJHqkSs0uEtiT5x8/IUDC/As
rQ7l+7FLol7X52o53QLeJzynkqCklFAdoI3uOLIA44lvypn8lBJ32w/LbLMu
gEtUXLXVmVLiaTl7gLzwAlK1XVgFTu2WiJaKH4wRWYAra3Uzr/Buif8BWoYw
jg==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 1}, {0., 2.9014526663269757`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.562416923960129*^9, 3.5624169291418533`*^9}, {
   3.562417066221231*^9, 3.5624171599926567`*^9}, 3.562417492781152*^9, 
   3.5624175396391563`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.08515963145221861`", ",", "0.3333333333333333`", ",", 
   "0.9963684075289229`"}], "}"}]], "Output",
 CellChangeTimes->{{3.562416923960129*^9, 3.5624169291418533`*^9}, {
   3.562417066221231*^9, 3.5624171599926567`*^9}, 3.562417492781152*^9, 
   3.562417539640802*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"PDF", "[", 
    RowBox[{
     RowBox[{"UniformDistribution", "[", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1"}], "}"}], "]"}], ",", "x"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "2"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"RandomVariate", "[", 
  RowBox[{"UniformDistribution", "[", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1"}], "}"}], "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.562075975893505*^9, 3.562075998535791*^9}, {
  3.5622892478738537`*^9, 3.562289317759241*^9}, {3.562372356989558*^9, 
  3.5623723651329803`*^9}, {3.562416977066161*^9, 3.562417024866959*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxTTMoPSmViYGCQBWIQ7ZX64uKBl6l2DGDwwX6BqH9bl+QUexi/kWOzeqfk
Ejg/InLh+g8ft8D53P8bY9zl9sP5qoHvXhzuPgLnl5+ztJ/x5SScL75F8B4j
43k4f9sj5zPnbS7B+Yey5kpHvrkC539Vs+Vfm3sdzmf6uVpAWvUWnG/2P2Fb
8Lo7cP6ZFpNzx7Tuw/nyE17/XPnuAZz/+vv9e1cNHsH5S17tPsXX9xjO55Nd
/v7Jkydwfk/m1rQFKs/g/G8Oq59k1D+H80uMjmwRO/wCzr+/7kj3RcVXcP7v
rCuzNatew/najuz/0na/gfPdFymmbxR/h9Aff8DFcxeCXy4br/Qw5j2cb+BT
FD9lDYJvb3Kt/dgvBB8A6Judlw==
      "]], LineBox[CompressedData["
1:eJxF0WtI02EYBfC5zZwOzU0jEs2cCmraJHJmRoKGmZuRc6VUmmhBmZi3D42u
C5cX8vJBtNqmq6ldRs1ohtjflJCgSNRmqbRWrRxd1DSdU3NbBfGeBw6H37cD
T1DeafFxOo1GS/qbf/1p0pdS0mcTaP8vd9aHHsiA31avKpSusDB4MsaPBfdT
g0PNHrDg4OOT6zxhXnWlypsLX+MVx9b5wl5U1gh7Pbw8E+7q5g8PS14V2kPh
5Bn9mrNhMFWpUi9FwLd7ikbn+fCFTZyd3+PgyKkD7LE0uFsi6qvZDyf1Jpbt
yoAP1fHftWfB1dHu2vJ82FJOpXKlsNrOq0lrg33WzrIGVmBmn0IXrJwjPrXt
yYS78Bexdm+e+ukibP3h521pmifuytjDaNy9QHwxRd6qt8BB71PHNXIr8Y7Y
isYNWxeJj2wcWnYxwNaXteZimQ3/YeaUi0OWsN/UdYs+ALuel0niSpaJaXdz
dGbuCnHpDV0t9xncu7mKxSn6TcxJLY287LVKbIwaNkgpuLMlIeRLjp04Wyfg
BDjgS/KbMuM9B/H9rwEKL5GTuEolzzXtg4+Jp0MfpMP+FNWZlgnX1B9+fjUP
PiG4PuchhXkVviluHbBj+znPsTvwxPTn1x1auCHzUXbyQ9gZIS6TU7BxpL6F
YYC7r9jyDW/gxvij4ZpxWNi+RZ9ognvODL6QfYObomLq06fgErNSEvQTDhMV
fuhfgJkuo20NNvhjV3xB7gpMFWj40Xa4OZBtdTrhP5DbFlE=
      
      "]]}, {}}, {{}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 2}, {0., 1.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.562289310739149*^9, 3.562289318689283*^9}, {
  3.562372358644002*^9, 3.562372365548481*^9}, {3.562416977910564*^9, 
  3.562417036296605*^9}}],

Cell[BoxData["0.2175273075182369`"], "Output",
 CellChangeTimes->{{3.562289310739149*^9, 3.562289318689283*^9}, {
  3.562372358644002*^9, 3.562372365548481*^9}, {3.562416977910564*^9, 
  3.562417036306978*^9}}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.56229052428967*^9, 3.5622905494028397`*^9}, 
   3.562291135766364*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"PDF", "[", 
    RowBox[{
     RowBox[{"NormalDistribution", "[", 
      RowBox[{"1", ",", "1"}], "]"}], ",", "x"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "5"}], ",", "5"}], "}"}], ",", 
   RowBox[{"AxesOrigin", "\[Rule]", " ", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.562290387277429*^9, 3.562290477996862*^9}, {
   3.562290597670101*^9, 3.562290601075698*^9}, 3.562290659697064*^9, {
   3.562372224720241*^9, 3.562372263544264*^9}, {3.562372307531622*^9, 
   3.562372308043405*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwtmmk4Vt/Xx83zcA+RqMxChVTIcNZBkVBmDSizkMxTMkSU8DNmyEwIFYqQ
ureQSklmISRzmacGPPf/up4351yfa+9z1lrfvdZe+8UWtrluZE9HQ0MzSn38
731zSn95Z4eM9r+eIYfzKWOTN3jXBv+RUU5QpXZssjJ2ljCy8eI3GRU/HrTp
JqlgQifct66vUMeTpWLVeVWxN9GJLKOTZPRhjsLw8gSGHRS8xN4wTkb5/dF5
7e8wLPmZKFfaKBktnVCS874ImP3Qc7LBVzJCvLcTvmjgGItM3370iYx6nvI/
cgtWxzze5AhnfiCjlkwh0mSHOvbVzEnMv5WMFPEr7H1iGlhZyG8puUaq/Qse
q/BFAzv7ReB47nMyGjMlNc+pnsSSva/ohj4go82SuLfb9trYFovUWYs0Mirk
VH9+pUsbc8haMlBKISNdx5MMzzROY4pvb5ktxpGRg68bne4BHezr7ofWV26R
kZitBg3Oqotpll+zUw0hI6Oh5WSBKF2sHFdw5AsiI0lr2reyzHrYzautrh0+
ZHT9h9iOJJc+JvRyxg+/SkafhvA1f6Vz2N1zVYF7HcgocQVC5N+fw5bHA29u
2pDRHaeKGyoyBlgTB0d4hQXVnr1vgkOLAeZgJRMnZEBGfjdgaoPeCCuj9Sqk
USQjk8uLClatJpiScSlT+lEymkvkL/srY4q9LRxzOiJHRm94tyTj0kyxUW2D
wzZSZJRpdIHxhYcZxht3uKZJgIwy/utvElE7jxWO2PFZ8FHnx9Que1Sfx44c
yQxc3UVG4BTLyiB3AdPrZgNxLjKqcX8vK3DoInaLf7o1koaMItf6s7TVLTCC
q6C04BYJ8fZZcY58tMCyXpnFvPhNQr2R5CHSJUus9kqLwfQylY/y7gsNscJ+
FeUP6EyQUPY/Dcdp7yvY+aOWcxwfSCjnbVA2naQtNhmRrP/wLQmxZ+ceaL5t
i3n1tj1VayKhj3qhYhoTtlhcgLK3WwMJle1Lt096ZIc1UXZvfX5CQiz7U9U9
TztgBsRzl53KSOiqvnft1nMH7JtNZCNNCQlFFVdJ3RV1xDYZ124fySMhOk7F
uGYmJ0xGr5MrKYmEJthKoHfyKtaQxepxMJ6EntCaW1y1c8Z0FvCuphgSut1h
+kHnhzNml/g0dfU2CWXlLfnvnXPBMvpjhMz8SeiesYeeEq8bxmivLb/HkoQY
0laUj/h6YJ1WR8znLpDQ8O4Tce7NHlj2eYGgV2YkZIkd46Pf5Ykp6C20WBuQ
kJlYGafSC0/M4WjqhVJNEvrc6ixwi8sbkz8cFhyEk5Bhh5P0X0dvbFvCpeCs
GgnJiaTC+htvLJUffi0rkFBb6L7Sezd9sHe0U6Eq0iRUm76tN8PohyX/7XjI
eYCEis2nKg64+mFX1uo/jIiSUHzKCM++bj/s93Tcroh9JOSzJHVZ55E/Jt2h
UPKRQEJ/5uaTfK4GYjHZkZ8tN4hIp1tuYU47GDuf5r4qu0pEn17on5L5FIyJ
JV7cQ7dERBqeP9SLTUKwV7dlbItmiUhg2fCd3PFQbN61d31+mIgSXsaw75wP
w+odkEDjVyLKtJTJ2yoMwyKvlOJJfUSUIsj6Xm05DBM0CY5W/EJE8k1KF1Lj
b2EGKhL7Q5uJqFQh/7HmcDi29zhB06iRiOqKqkK+H43ApmX+OIq9JqL9s01c
8/cisDCR9sp3L4iIxNn9nw1+G6ti9T1FLCOiF4NXTzu9jMTI/S2u+QlEJKff
M3Nt5y6GDubdiYgjomdvPg5FXYvGXEOCCh3uEVFi9v13tsPR2FuJo0PSt4lo
9Ted5s0397BAn1zdZ/5EdNToR9x2fix24P0NxxQfIjI/9Nx2QTAO695rHu7n
SURhmMCFoew4TKaZ86WKKxH9PPTy3fv8/7DvpBvSzZeJqLL+RdzMWDz2n4OZ
VpEFEck4Es+8kUzAVOuP2Ny5QET3p5sb6twTsPvW0+l6xkQkrfZPnZchETtT
Ycrao0VEKy/qqulPJGFV+nLTE4eJSD0qr6lvJAW7nMfO8E6aiFq4OI3alO9j
HGuTgqUHiGjrUb/xwdT7mENmlrmbMBF13lYo0zJJxfjn2FrXdxGR4dXJxTuj
aVgrNvm9n0hEploBAze10zHvxMbtei4i6qW5o8FZkY61n/BXCGEhotls2WO7
IjOwW3cmHjL/I6ApwX/DXlqZmOwQapzZJKBL3aGBv+ozsSHZzOG2NQLale8r
ffxIFqbQZ8QTv0BAb191GJ8RzcZmxVEE3zgBFR2w3yfFnYsZNWXYSn0gIL+x
ZP4jKvmYWPePb61vCYjOTPfu8r18bP2HzEWHJgJyoSB5jm/5WDpTk0FBAwFt
bImpW0UWYKM6c2r7nhJQcsEPs73ThVjVxeN1L8sICCt7yIOdfIiFu4Qcu1hC
QL/Tlqwn8x5iErHkg6l5BOTxSzBk3LoIu9ahwkdMJqBO4bR9mmvFGDZ2O+lp
PNW/nj8bulYlGGH5M9fZWALSFutI435fgj0n2zHeiySgyvxuufGCR9gfs5hl
hgAC4ls9TLl9vQy7Mzz0cdOSgE6zehfZ2z/FLs5LnE69SEBHCbTXs349xQ7t
uDcdNyegMzEJ4UyqFdhnIcZ6TwMCihqrjx98X4Hx2h0u/qlBQJQ0IbsHK5XY
tLefyD0goAHnnd886lVY3e3GLClVAhL5NVH15b8qzKLYNNnhOAGpPhUMETry
DCuYvRk2eoCAdK9ZY2XhzzHvv63/gsUIaHdvgfTrweeYFgfJf58wAT08HkNQ
PV6NzR4ucrvIT0A87eWy//2sxuQ82i91c1DjffxC/Ni1F9iNBTXX+HFu5Cd9
Iufjy3os01pxGh/mRifCzk3Wib/EGrrk7JZ6uVH3bvlXJxJeYtsvRC2MPnAj
h65/f5ivNWC3Qln1dlVyI639MXLhSq+xaGLPwbRgbqQhar5zmNRI9bG9+LQ/
N6r3DvMQN23EPq61iv724EabnnsK+NIbMa6v9QIX7bnRiKWrI43YGywxP5d9
rx43IsbPcKhoNWEZR13ncvZwo6eXH7VWUVqwlw/tHQ3I3Ihw6RmH5K632NDu
y+M0nNxoq1zoYt/Vt9j+f4aD1jTcSIy7OWCNrxXLb1ZsE53iQuqVKSvlke+w
R6b0ZcXPuVATX5OQWGEb9qH1n8T5J1xIlPNPvy3XR2z2xHo+SwkXytKcwKUD
P2KH9s9kXH3AhR5VMt65YvYJq5hsjz54iwulyX2s4BD5jNX6ZTg/PceFmLzE
t2tuf8FE7Dwe9p/mQkVB+D6a9i9YrMHpUVoNLmRfVKfosLsTs5FaNzU5xoV0
U6T5Mh53YuyDhuq/+bgQ59P9A3zTXZhvq2SQCIkLzfOfaGw80Y2NPtup0WXn
QiI+j3NKY7qx5zGPD2VvcSKa6qcTZxV6MCuMlU/zOyfy4tSrc0zvxd5Jjxq5
DnKiAqUKlvtrvZj87hexKd2c6ATLFb2Dxn0Y86Id/fRbThT7KtYvh9SPVeSh
+ZgyTuT0061Vs2AAo2f0b+n15kTfNFqf2ROGMbelszQ0bpzI7fdeh/Tbw1j/
sLiKlCMnOuB349N//4ax8pquihsXONGVnd/e3xa+YWZOsplCGCeyj7FgtfId
xZAJU5+OIifyWJoYs6odxaTVh4lecpzou3zu8qW/o9jOnntRLSKcSFeYkeVC
xBhW0jbp6czMie4l5b5qyf+OkWpfPU6i4UTsLt6I69d37GZh8nTDbw60I8nR
7aE0jhnd1LDi/smBQhk/cNzvHMf+ymTrPO/gQHSv6Dve7ZrAziaaCm2ncyDT
kYrPKd1TWKA8t452EgfqOMilQpGbxoo633nEx3Agx/bnrSpx09g2SbVJJIQD
9Wy4vsT1Z7DHSSIO2nYcaK//3dTtwVmMI2WhLF6GA838mx/Ow+cxpeOPugcO
cCDFut+O2s/nMbsemy0RYQ50t0F3V4LUAtbA03u2msyByGPlT5M4FjGX+w1L
A5vsCJ33bAplWsI+pN5VFG1iRzf7hWgtJFawdUXNK64N7Cjv+Ydz1W4rmEj/
vzvV1eworewbgVS7ggXyuX/VLmFHu7098sf1VzGpdLObrrHsSCnb3UUncg27
kyHaVG3Ojob6iyvMD29iz5WH57YN2FG6wbsPGVGb2OjX+7tOn2FHT8xCz+8b
38SUBNgcvqqyo5gSJq+lrN/Y9INFlh1hdmSdxbCuJ/oX0856dfb0Tzb04FlE
4Qv3bWwxdugfwyQb4tXWjXYa2MYygv+WNo6wIZ0yIVM3zR3s5+UTzCpdbMh6
XNm7mZMGEkWqKYfr2ZDzedJFxXka+FZcLke+w4bY1E6+t+ukgztpbd8+h7Gh
lQe3T9uT6OHI3dmYmBtsSPZQQcJRY3qIcJacYbzOhu4XWx7X7KMH6cOFeZum
bOiO7zsp7xkG8K16QPomyoa4A+wXrJSYQaigHmXsY0OsKV9Cr0Uyw/ukATfz
3WzoVzrTkFcPM+z12d3WwcaGRloIXl6+LPBGMSm8aYkVLftz+8Q3swLXq+jV
EgorMiMPcC0kcUDt40f59nWs6H7zD8sfyxxgnf3OQOQZKxr3fqpMb8wJz0OY
Hj8oYkW5OsdV23i54KLGLfu4WFbEW7KndqKcG4paA3q9LlGZ9a284j0ipMv7
aj4yYUWOSZYPa98TISbLs+KbPiuqXt3fxs5KAk8vl2gdnBVZjE15HIkmgZqg
JSYozoo8mTJTmu6TodsXL/owz4LGm7jdHQd5oHVMlUwzzYKWxx47a0vyQr3e
idDjYyxoj4lCqrgvL+SKyF/M7WJBQqxdlOldu8GlXZTLt5YFxU0lt4xZ8QGd
BLOv8C0WpGwr4eF3QADW4unHzW6woAMuR2Je3haA6b8752K8WZB+94c2+QkB
aP+yKbXhwIIeS6ypvS/eC+k3Z4c/6rKgvWu+TVsq+0Gu59Mpfx4WNP8wfWr5
ixCI4h+qHnOxoMOvTMIS2YWBt+yt4Dgz9f9nrIhzp4ThXyjlt/4fZrTDtFX2
uUEYWg9VPhYdYUZOslLHC5+JgFVEMs/nEmZUnPzQJ6BVDNphndk/nxlNX+Ae
YmAVB/hr/kcokxmR9ULzDXXFQchTYMTzP2Y0PHzqnmKnOHy/nF/C68uMiCpp
0ddnJMBBpULFSpMZcV/sw/1ACnrXiTLMaszo6aODFvxxUqBd5SVUocCM8kv/
ieUPS4GklCIjnTQzejjvZXg1RBpmeV+3PyQwIx6PjfP87QfBbbnN+tcwE/X8
VpmrmiED3x4fNrnfx4RsiJk/TDdl4NzV/7TgCxNqW0ntCDKXBblRo4MJzUyo
UkDQIoRDDpY/DaweK2NCzxtEfsZ3y4Hvo6moIH8mZHg6afFEqDxM2ukEinsy
oaU/sbzWtfJgLlTm2u7ChEou5LdILMmDUqqbodBlJnQoe0Ui2e4o/IlY428+
xYTstbMfiBkfg+Ar9E/YyUzo6qnRrykGClDxWTuum4MJFbwd3yOQqADfsRi3
LCYm1EGpXzbqVgCtfTyysn8YUQcHk93YRUXg+ipRYTTGiOqyNepL3ZUg2/hM
VfpTRiRiVFIdhZSh401cos0jRpSj0UnDzaUCdPJdngcLGFE35Zyvg4UKOBAs
jr66z4ieWMl0xf5VAZlP156P3mREPQeOTq9rqgFFK6HmgB4jennJyJNxB2C5
uuf+4ilGZILluWoexkFMnN+vDhiRvtPdPTcv4XCHvkBR9ygjuvr77PTlOhwM
0PNaN35GxB956QH9DXUYPdFfXz3NgHxNb1t84tUEmsOCFM3bDGhiO18c6rQg
iFfd6nYwA5qUyKaf3tKCjR2brbd+DCgw9k77OU1tmO8sUjnjzICC7lYV2HZo
w6C/TK3BOQa0m48p4MvKaahpVqu03MOAjGOyG4OsdUH+yWWDHBIDCjZTZN+q
0oXHqWELo+wMqJK+gd6CUQ8KnVsO223To9NS/VGvy/UgkaBf6jxOj0YTC28Z
MZ2FaxYWBX6P6RHt24dHTb0MYPpUsEZdET26lLlz+b8CA7CTzR37k0OPohjL
fp/pNoCLdD8EgxPp0ctYHn1dRUM4XeKSGeFHj8bPN04m0huB2GpgSoI6PXoc
VlF5ocYYvt5LjyrroUO7NXhPHoozh64WofIrn+nQ8fkrk5kfzeHjTnEHz3s6
dHmW61Ah+3l47VWzJ7SBDl34tPXwxr3zkH+pq8ykgA5lHoUFj8QL4HyQs2PL
nQ45SfWSc19fAlv75NUqZzqk+Xqdh5fZAixyBPY42dEhmliRLkUDCzhLlrbp
NKdDS+1xPBE/LED+r9ZqEUblJKK1I48V/P0QymfAQYdOvigW+Kx3BVYZWNQY
meiQ9uQ7vde+V2Ae+8+6focWidiJ83LnXYHRqqxSsRVaZBFVfa9//Qo0Z9Sr
/h6gRRn33tAIF1tDjPPqlfxiWsRsLKylKmALe9mcHq1q0KLY94Y+4eYOYPX6
Y4yIKi0qRV2vl5McIM/ziLvBcVq0YH3y52qHA0gM/lEoP0CLFEMXmmr0HEG2
PLbZloMWjVbFxRjpOoHG2WcjnT006IFe6Bk6B2eIoONrovlMg8T+LvgcK3eG
1pqgIpl3NKgrvLiKc8UZ9AS1rkXX0yDO+uWq+lsuYLbY/0c9h/o9UfeuWKkr
XE3c5ql0okFmuyXPuvJfh3It29/frGlQQCPl4TOX6zD/p3WI4xIN4m05bFD7
6jp42iYUOOnTIMGW/xp2jrhD0DGxI0LyNOgyrbNu35A77H+clLZ/Y4dSXyof
43HKE1yOSzMO7t2hnN9XmTbg6AOejHXFvtw7lJwgkYHuTB8I7NE+Q6LbofQF
xC5rdvpAtI/9fzpT2xT6GeHtUMwXSqtz99RWblO+Chn1xO71g5nju2VStLYp
8v0CmxUL/rDIWNQhd2KbsvcCh+i5QwGw2XPM6+PBbcpVz9JBt6sBwOJrVEtP
3KbglkJ3FSYCQLImVsNzcIvyMNSKj2Y8EBwVGMzPuW9Rkt8n1epsBoEbU9Lv
WZstykm7BNxN7Sb49gpnRppuUSz684VFw29CpC+MvVLeosgxkd+pE4KhqCbQ
5RDjFqVQsLrz2pEQmFBYCmHN+EfpYOmelXkXCraK30qamv5SyA1pHCO24eBQ
omim9eIvRTu/huwaGw7OexLo35f+peznNBXWehEO7n81rdoT/lLOsPPtHmeP
gCDKI/LA5b+UPS7DKx9rIyBZ2yd4/u8fSvTG0ZUW4Uh4a85hsufYH4qshKNE
7NG78P6dPW3mgT+UmzwOT7Id78LHE5Qn+wX+UPRYn8hyZN6FTgFPVjG6P5SD
l8k8W4zRMDLS91qm4zflNn04nPwWDZuOBVInXX9TLneSu/tyY0DaX3nHrXCT
Ym+5K/uLUjyg4bPS4/c3KSd9yyy6L8WDmaatqfndTUrVeGcfb0g83OKKKQO3
TcqvkBtWFm/jYaBw2JygtEnBi1XlV8wT4M6X0IrKtg1KvPFIZWZUIkxKt1qv
Lq9T+O/1pekLpEBQ/GCM08Q65e67L+wrWilAWl94MdS3TvEYuXpl3DMFsEY+
rpaGdcol2f17i9pSIMXcuT4lcp2irvDx+6vQ+3AygpOsyL9OaedTEI76nQp5
w8bNAeprlAPmv6KYJR+A/A/5P93H1ihu4skC4hcfQPMsUU5Oco3SZmCzERvz
ACY3Pj+Y5FqjrIk8qdZYfgDSJD0v46FVyhXPt//hjZlQpXVS5LDfKqUrp+3l
52vZ0Pz0WOho+QqFLYhrqJA2D0xryDUquSuUgxkszJWCeTDZsDx3P2mF4kzw
iphSywOWDxXm+oErlIbvLazdgXmg/+OQbL32CsVyP6g/Xc+DXj7xb0nflymn
jRc14tbzYSqMR1Wbb5lyhswSMLP7IbDdfLqQxLZMUZuKHgnDHoKMv07B6L8l
Cl3rnWOG9g/B1+0mW+DYEoXl8muzlGcPgenSRH956RKFM5n1UK1REYgdq/Yh
qS1RtspK6GIfFIPNpMnTYetFiuseZbH486UQOTZvI22ySOHw/u5hFlkKpUN3
eP20FilmZzarzj8vheXOhpuEg4sUxSNGuURiGdCF6KRFTi9Qzi0lc134VAZw
ZOaLIecC5UPCRrCF4WOoT5E8NW32i7KLIt7FfrICWC5N2dKq/qJ84krwNLSq
ADOholv8wr8oIgHtQ9X+FbBcKor05n5S9GMCNAYfV4AU2q9SGfKT0m0akZW+
pxLSZncdCSyZo9CkZevPr1eCD9Du4/gzQ3k6ayqo8v4ZyM0MrMpmTVKsLD+8
effpBXgvHpbaHTFJ+TIVY/vs1wuo3Qiz3HaepEjuZWKo56wFdSbptx+VJilS
mR9UBM7WgpFoYOrV7gnKuJodfrijFnws+ZUL2CcoZbtrqmMG6qD+y8UQ3sBx
CjI4aM5L2wAn6wdZt8xGKVWKLeilAQL3R083ieQuyoSIXWn9VguYOYjmdQbV
USI+1+HMk23Q+nEg+qhxLQSVeJ/ZWukA5cONVQapXaBsROP4idgNx7t7779+
3wXWj0a1m/Z2g9yNn4GH/nXBAfRfXtWBbpB4v1uTxbob2tPaAm+qdQPZ3q2L
It0D04G3JxqduuFnpsCqzOteeCuW+mT9VTfkcPge55wYgK9vybnpNj2Q8eze
nhu7v4L58JuaLNceuH8xb2ta5ytccBiTTvftgZiSjy3NT77CMMerGZ/oHvA/
KWoW5D8ITYhts7myB4yCOnzn2Ifh/V0PibLtHqDz5Rmy2zMKBUKxjpIJvXDx
Smln7bFR8Fkce12d0QtVZ+A9h8EohBb+zVIo7AUbwas1zyNHIfABfzHpRS+8
edcQz7BKnZ+S23lkqBfCBexOFbaPwfFbw9g/0T4YYvytsjkzBjPK86frDvXB
scVYeT3G76BenljldLwPfjS/EFxV+Q6PHkVbZmv1wUk39j+aj77DeUN2CVun
PmBorHoyHj4OD0Zbrms+6gOLMu2HijnjIHur2HB/ZR88Txl6cK+eytL0t2Zr
+8DOmenu0aVxGFG3jzV71wct5Iu24VY/wE/X478bk30Q6UDLJ3piAjK+8eXN
CfYDM4dBmM38JOz6duXPv8h+OH/gIlJgnYLkjMz1dzH9UKpht8MmNgVPkhrZ
byf2w9kA/5vPLkzBYu9bw09Z/XB/MjeAoWUKSvOi2LKe9YNE45JH0YNpuDZY
FSE71A/+Q38rAmumIWM7un1jtB8+bDAunv0yDXF8eeFPJ/rBTYbfbYNpBk71
RrP8mu+Hmgcazqc9Z4A7oM4rh2YATvkm2cyengUL+6tLA0IDcD8hK++17Sxk
Pj1RkCw2ANPlxaOJwbMw+PjRUUxyAGLGX1qpPJ+F6oX1L5ayA9Bt8ONijOAc
nM4YUmhXHQAJ1/n0K8pzsK6vx70DA+Aftdl/zHQOQohcsfs1B2Dvaw7z4eg5
GHoVYSWlMwB2B48by6zPwbgJU9k1kwGo0YJEOuJPIJ7v3iaZDwCLjc6X3oM/
QfdaamvRhQEoT7M8F2L9EwqwkPx0qwHYfuYYZxz0E+aj8NLNKwNg8Nnj04HU
n7AhLEfSsh2AVcZI3Y6PP0Gg0WGhzHEAtITjowunfsJRJvdLzVcHIE01470/
3S+wUT3E0+YyAKpeT7SFlX6Bt1z/lYLrAxA+2qvpWfALuB/2zAb7DsC3Ot1r
/g3/Y8VLC34DoJyE7gf3/IKLjR56BgEDsHiqdCaaeR5Um92Lx28MUM9XguQE
oXmYeHGTg/fmABRvJqmmnpgH+8XlaaXgAbAqu/lfgcs8hIV82zkXOgD1Ecu1
jyLmIZEcqnAybAB4rBy/P82aBwGv0SHJWwPgrjjEXlMzD7irxdIWlT8SDI83
fJ6Hb+eueTaFD4DkbIvVm+l5kFkvsQqIoPrfpHznHe0CCDU1Phe8TfU/82ll
O/8CnC2N9KqhsrKv2GD30QUokR9PV4ukrv+5dIZBvQV4FTAiUU3lJUkumTH7
BahUyN2zL4oaD124+VTwAgw3OHj4ULlkcCP0V+oCkLbjD7+mMkO1a+lKxQIk
xKTrb1D5ctxY1+/3C5CWufuL0B1qfI5mWzvfF6CUkfJCmcq86m0STP8WwEfz
Cu0pKitxCklGsi2Cne/0Y6DyZMBXVdbdizBga/1KmsrJk8mGMaKLwO27JMtE
ZQ3jcw7ccouQ/3KQsZNqb5HCeiNRdRHeTYZAHJWzDzX/x6OzCOJ6F4eV/+d/
enBhmukimI7Rj/ZR4/vNeKJOwGYRyCryp+2pXOS58inbbRF23XvBO07Vx2Tk
8XfhG4sQknVLz5DKdHpOG4VRi8DTmz37lKpvRa0Ih2TyItAdPra8TdXfSnxY
qCx3EQwORtlhVGZPTD0u83gRWKc2Ndyo6+XgwnH52NtF0LmveyaHut67+t96
vehcBM1zN31zQwbgzcmwO8oji+CmdZ0nkZof+/avV+Kbi8CQ7/ZMK2gAPkRX
vG1iWAJOt4oaVmp++W84D2oRl6BcWeD4K2r+dXeMMOhLL0HBS47Ha9R8vaWW
sadDYQnOlZeWBfoMgFypiYyx5hI8YcqVXfQagHvh780vWCyBj8p6Z7k7Vf/F
cNchpyU4LWOwueJG1d8CC7vsswROj1aeHLxG1VvhWal93BJIl2PDrtT6Wcy/
RpnOWIIWBnTJl1pf2dyS3S7FS1DriQW421P1nc7c8kBLoFq5J1fBmqrXg0iD
4OUlyE2tYmc/PwBt5MgpbpplwD4JeNqZUu3dux2cx7kMBJeTM2VG1P0iKKK8
WXIZwsZNhBn1B+COxS0W9svL0Kx2yn4MH4CC7rCcTNdlEJh33ypTG4DXemEK
MoHLQNQ6PmCnTK1/1VA7w5RlyPF47Zd3dACu7AtGqW3LsCDmuV9bfABupNw0
lxpYhtl9/3IihKn5z3lzvn5yGcxPnMur2Eetr60be7/RroBqjejJbh6qPt8C
/MWUVmB1R3nzDOMAEHJ85CoLV0Ar6NHWFnX/Pbjbp1WjagU8SKw5B6j7s9Z/
3lbdlBUoEK83xvv6ISjEK2bj6wrkzCMh+NQP05c9ptWIqzD18LG3V20/IKFr
uR9ursLkJeIndK8frufbEX6YrcElMAZNiX6IC0jPjLNdg+enIvQGqf3liUG7
5An3Ndh+cHXZfk8/zG8rqsfdXYMGw/2Kxhz94HqJ3VOpYQ1MoxMW45b6wHlX
VVeM8DrQ97R9TKnrA4fInfvHf66DR1dZkTJO7V+Wx0RHN9fBsCaABlPqg6Jj
V59GM27A9Xjv+ONyfTDxvbN1ZP8G/LRPuEcrRO2HULR513ADDMpCgrl2qP17
U+/it5oNSCyf4mR92QtWzhn7osI2YW50uXJGuhf+DrC2L8VuwpoxQxFFuBfS
dAKCLTI24ZrwGZ4Yvl74Inl+5MizTXAay8pjYeqFk1M8eUM/NsGDaZovcbQH
pOwSxORP/wbCXYuRlaQeWLW8c3CY6w+8rHO8f3m1G+4a+p44mvkXVvk/uJjm
dAHDrpTJkD/boD7yx+NoQAf0td1ejOCmxUPS/9IXjn8A0xs2ChlNdLidQeXi
+eJmcGWfE2m/yIAbShyO499+DXMB9Qzs1gx4VghdSU//a3Cevjup7ciAqzO5
T5c+ew2OLZKljV4MuFaYKLnw6muwCXE4Uh3DgF+VsQnq7H0FF1bGIPM1A25b
oSwvXdMAWoP9Fs4ijPi/N7e4OO/WQ4tOCVYsyYjrfD99T8SxHk7W+gn9kGHE
E4bqnYxP1YN6Cu8PSxVGvDjjuCUzXT2onjNxMTRhxE0PMbfUBtWBfNPnAKVI
Rlyt7mPGKb9aECx7e59plhHPPdXutjesBkxyaus+LDLiHrtN6EhXaiA6qXQo
boMR55O+IyMJNbB6I05kNyMTTpdRr1ezVQ0f9MyeHBBiwhX7yr0uBFWD7/xE
y2kzJlz48J1DdSHP4dMRxrXoN0y4xXTjEUp2FdBJbOw+954JF9pW/IfCqkCJ
f0aZ3MGEe5RD03e7Ksin+xT6YJg6bjUnGnmwCvy7kjnKN5nwKr8DMrr1lSDm
Iyb2SYYZTxo+UN4yXAE3ajWNuR8w47tcrtuc938C8hYdi5fzmPEbNLu/Rek8
gdkdi7iKYmY8vaYq4if/E7io7fve8DkzrhHzY9nk9WNQ7i2B5E/MuDRfQlEO
82PYXOE8tIeGBY9TK9FgKiwDX9l+BlF7Fny/t2XaJfpHINNll+/lwoIbD86i
ra8lMOm7BM0eLHgN/aPSL1UlYPqa7YZ9MAuu8DVUm8u2BI7pqy0Vp7Lgc4mf
T/W1FMOKc/7woQ8s+MjP5+9ikovAvci1RkGWFd83Fj2SZ1oI3z4LpHApsOLz
bQaZl+UKQf/3B69JVVZcu/PcihF7IUjrSR25f4YVD3zl+3qgsQB+LE2Urdmz
4ulx6lM2RwrAXO1y3vNMVtz3+ktmVf58wLoNY+TZ2PC5lxr/Wom5UL5F48JG
ZMNLmrNyGidyQOBAhc733Wx4v6PjplFJDmwGcDEnirPhMvV0J5NkcqBKsC1s
CWfDeyQLR0MgG8RdTvpV+LHh8llmvdWemcBBp2gjM8GGjystnNgQSIc6P3rj
yTk2XHn31+uGs2ng8OuzZvYyG34rOP3Kv9o0QP1O4lw07DhvbziLpnkaeD3N
mP7Fz46biM3E3k1Nha8W226PDdjx6UNCN8ol7kPJi5YbhxrY8VpOGcneoCQw
PZzo+uMNO0759SYu3SQJ6AqsLDPfs+OZY6fC8w8lgUXcBsbRx453+2S8CB9O
BG57KbqfS+z4yj0mFKCRCL6k2DtlBzhwhV3PrKf5EuDUNZMU6SQOnJ0QJbM8
GwveiS9prqdz4Hu1H5z+9iQWCl+IuD7L4cCvMa+vyHnFAh3dkoZqOQc+39M1
w7wVA+h+7KJ+Cwduv8+86xpPDCijt7oeGxx4PWTWFp2PBhnyCbraS5x4QFvZ
DW3xKLBUyr32z5oTl7vHxsS2FgkxlswDuBMnLsuaLSzaEglzxT1P33tz4gbM
N8TMHSKhRNXTcjCWE9fs3OGtK78Nog5ltdsUTvys6fLY39MRwFe37/opMS78
fbWpmm5DGGzbFgsQD3Lhs+eVbZsSw+AH15F3Q0e48LqZn0rxV8Ogwu6ksDdw
4ad8ht6K84WBNsGlK/8iF36Tp8LoSEAo+DrWKtIkcOHFccKeRcnBYEHS+NGW
yoXHMXMnlOsGg8artvjUbC48+avTYV36YOAij8zIlHPh5e2C7freN6HoNWOm
ZSsXrhmXGqxnGQQ9PMY0L7e48FwBi1HDM4FQj4bKIxm4cTWGRWMntkDIdXG4
YMTOjXO0qEYztwWAa2NA1QwfN14tP+I/pB8ADNdy7fiOceOvvcSPvb3gD8ea
f73zcebGzwmgB213fSHR806CXB83Pif6RM/tpBf8+Vhee2eYGz8ZZba1a7cX
2Bz4MjI6zo27Wx+8zT/rCUeH9sgkLHLj+bQPgyHBE2bzTSc2GQi4UdMZppFx
D4jhmAq7sJ+Ac6fTpU6muwM6EZByW5iAN1dPnJDxdIdVB/ZHlWIEPGMwv+jD
GXewaJTtYD1IwCnDU/Pbv6/DYV///fWKBPxO9ePK+A9u0D7C+pLfkIBnChZU
PbrrCnScme1aJgRcKbAx+9RJV1BQlvnuaU7A2dlNHvnvuEB2shFrmyUBF8sr
fJ7j5wLXdR6Y33Am4AeKPip2uTkD4dmh1cFwAi6qz/BkzM8JjCLPHc6qIeAV
XzheBv6idtcLizp1dQRc347UtlVnB78PJTj0NBDwMr7ngiuRdpDb1ZnD2UTA
RTJFJY+I2MEvITNS8GcC7lOQv/nd0hbuvLTYsJom4Oa67Mu2M9YwFLdFvjFH
wH9Q6JiKG6xB1iZbLnWegLv2ySmfi7eGXpbRq59XCfhaV9Rkm5I1iJrZDgEt
ER9ETW1X4q7A68WrjUL8RNzpQpZV3n0rIDWzfVPdR8SdbQSneXSswD617M95
ISJe7GkxpfrPEjiwX0cTJIh4z+fW4kw7S7hwz72I9igRTyOYmwepWcCquN+9
77pEfI697EAs10WQvhRhWniTiA9d1vk5L2YGFzxqSAxhRLxKv0VQfdIU7kRN
f7aNIOJKZXPGx0tMYeKZ3hnRe0R8pV11deuwKeRy8EB+GhF/+GZIaho3AZ7X
DyVznxHxr4omf2ZuGcHJ7r6JnRoi/oznq/xzfSPwnGUtuFxP9Y/uYDDbHiPo
4HXbJ9hItb9Zfdis0hCiryuQstuJ+Itzb/K0pg2ARrj174MZIt4bMsm/MnQW
ZBV/1/79ScQVCKf6R2+dBSv9g76XFom4pNW5LYrUWXgZ8N8i/wYR1z1c7asT
qA++neYT6QwkvFMgcvmMhB7MhU+3pwqS8Ab6khPiJTrQO8man2RKwrt+RJ1m
OHUK3prczaw7T8J5057PGbOegpo3LKkjl0i4ZUTUIaz9JNzPZo45aEPC/04L
/xi6cBJMzRh9m9xI+PlSD9O9/prQ3UJzZiWKhM8Jhb3w+awOzUdDT+65R8L3
5LlPtWWqw/O8HQziSHi0GLtLsbM6JN/cPnovmYS7rxX6zzCrg/Hxf/tE80h4
vEB7jN9pHDoLN5aM6kl4kOdqgX2jGrwh+f30f0XCH9m/S8tyUYOq0PXJbETC
r9d4d9fzqkGixdrg7FsSfsn1qEfmdVUw3LXScquLhMu4u/ijgyrQET6fXvWT
hOdJm59paFMCtHQtuX+BhOfq7bqrH64EFZd/xW0vk/DPdOsXC1SUIF7lZ/iZ
3yT855dHIilPFOHcysy174xk/OS2JskySwHabSbUSYJkPPYIo+xs5jEYYyje
TBEh42mynIpD54/BapHT0z0SZJz2+7FrOTzHYM/c3F7hw2Q8Y1P5RHzCUbDz
Wt6QVSHjd3h47YYS5eFP+M5jfXMyrnVrT9eJOjnglGi0+3KRjH+9RqujGCYH
Qu9uCZhakXHr7LXGcR05OMXBdNfCnoxzORb0hNfLQnwyh52LFxmv5DUaqd8t
AxIP9/Df/Y+Mhy1ltU5xHoQT2oMdHElkvP/MLRq6KmnQm8mMir9Pxm0vJ7Hj
5tLgcVhoLTWLjAdmaOnzP5SChmqJjqIyMl67/4r5T31JMHp7NLK5lYwnTQb8
PP1FHOyd1lRPt5FxfjoBLtFIcfBne7HS1k7Gt1yH8xZUxCHrrLJ1Vw8ZN5ox
GjEpFYPpXlz1+zgZ7ygST6JLFIU//nQr9lNknOf9zqLIWVHgFGh+NDNLxtnn
ZGmF2EVB/rL27qUlMh6sZfn9YZQInKJlbfdeI+Plva3pUtoicL7gQ8TmJhmP
YtToCGEWAedTMSpB/8i4zn6creidMPz/fW88Knq7Mz1aGP4PwYvI7Q==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-5, 5}, {0., 0.39894223341348517`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.5623722391598186`*^9, 3.562372263958004*^9}, 
   3.562372308835498*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"onex", "=", 
  RowBox[{"RandomVariate", "[", 
   RowBox[{"NormalDistribution", "[", 
    RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"twox", "=", 
  RowBox[{"RandomVariate", "[", 
   RowBox[{"NormalDistribution", "[", 
    RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Exp", "[", "onex", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Exp", "[", "twox", "]"}]}], "Input",
 CellChangeTimes->{{3.562373310807513*^9, 3.562373355634811*^9}, {
  3.56237342864496*^9, 3.5623734486208773`*^9}, {3.562373557665662*^9, 
  3.5623735679826317`*^9}}],

Cell[BoxData["0.3079461727458397`"], "Output",
 CellChangeTimes->{{3.5623733276131163`*^9, 3.562373392601644*^9}, 
   3.562373452267744*^9, {3.562373568403976*^9, 3.562373573471533*^9}}],

Cell[BoxData[
 RowBox[{"-", "0.04772901300672627`"}]], "Output",
 CellChangeTimes->{{3.5623733276131163`*^9, 3.562373392601644*^9}, 
   3.562373452267744*^9, {3.562373568403976*^9, 3.562373573473445*^9}}],

Cell[BoxData["1.3606277481103763`"], "Output",
 CellChangeTimes->{{3.5623733276131163`*^9, 3.562373392601644*^9}, 
   3.562373452267744*^9, {3.562373568403976*^9, 3.562373573474922*^9}}],

Cell[BoxData["0.9533921089360036`"], "Output",
 CellChangeTimes->{{3.5623733276131163`*^9, 3.562373392601644*^9}, 
   3.562373452267744*^9, {3.562373568403976*^9, 3.562373573476404*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"x", "=", "3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"y", "=", "3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{"Exp", "[", "x", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"N", "[", 
  RowBox[{"Exp", "[", "y", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"oneP", "=", 
   RowBox[{"N", "[", 
    FractionBox["1", 
     RowBox[{
      RowBox[{"Exp", "[", "x", "]"}], "+", 
      RowBox[{"Exp", "[", "y", "]"}], "+", "1"}]], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"xP", "=", 
   RowBox[{"N", "[", 
    FractionBox[
     RowBox[{"Exp", "[", "x", "]"}], 
     RowBox[{
      RowBox[{"Exp", "[", "x", "]"}], "+", 
      RowBox[{"Exp", "[", "y", "]"}], "+", "1"}]], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"yP", "=", 
   RowBox[{"N", "[", 
    FractionBox[
     RowBox[{"Exp", "[", "y", "]"}], 
     RowBox[{
      RowBox[{"Exp", "[", "x", "]"}], "+", 
      RowBox[{"Exp", "[", "y", "]"}], "+", "1"}]], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<oneP=\>\"", "<>", 
   RowBox[{"ToString", "[", "oneP", "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<xP=\>\"", "<>", 
   RowBox[{"ToString", "[", "xP", "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<yP=\>\"", "<>", 
   RowBox[{"ToString", "[", "yP", "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Total", "[", 
  RowBox[{"{", 
   RowBox[{"oneP", ",", "xP", ",", "yP"}], "}"}], "]"}]}], "Input",
 CellChangeTimes->{{3.562373648251737*^9, 3.5623737471663237`*^9}, {
  3.562373782280746*^9, 3.5623738104880457`*^9}, {3.562373849404833*^9, 
  3.562373892964099*^9}, {3.562373998472868*^9, 3.562374041117935*^9}, {
  3.562374108576473*^9, 3.5623741232719517`*^9}, {3.562417624236598*^9, 
  3.5624176261287117`*^9}, {3.5624177090712423`*^9, 3.5624178132551203`*^9}}],

Cell[BoxData["20.085536923187668`"], "Output",
 CellChangeTimes->{{3.562373670761614*^9, 3.5623737480782967`*^9}, {
   3.56237380841223*^9, 3.5623738109121437`*^9}, {3.5623738510522118`*^9, 
   3.56237389337144*^9}, {3.562374003625401*^9, 3.562374041514803*^9}, {
   3.562374109721484*^9, 3.562374123878291*^9}, 3.56241762810273*^9, 
   3.562417749142037*^9, {3.562417789343193*^9, 3.5624178153335238`*^9}, {
   3.562418545658153*^9, 3.562418560116211*^9}}],

Cell[BoxData["20.085536923187668`"], "Output",
 CellChangeTimes->{{3.562373670761614*^9, 3.5623737480782967`*^9}, {
   3.56237380841223*^9, 3.5623738109121437`*^9}, {3.5623738510522118`*^9, 
   3.56237389337144*^9}, {3.562374003625401*^9, 3.562374041514803*^9}, {
   3.562374109721484*^9, 3.562374123878291*^9}, 3.56241762810273*^9, 
   3.562417749142037*^9, {3.562417789343193*^9, 3.5624178153335238`*^9}, {
   3.562418545658153*^9, 3.562418560118292*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\"oneP=0.0242889\"\>"], "Print",
 CellChangeTimes->{{3.5624177893473043`*^9, 3.562417815339437*^9}, {
  3.56241854566224*^9, 3.5624185601199903`*^9}}],

Cell[BoxData["\<\"xP=0.487856\"\>"], "Print",
 CellChangeTimes->{{3.5624177893473043`*^9, 3.562417815339437*^9}, {
  3.56241854566224*^9, 3.562418560121707*^9}}],

Cell[BoxData["\<\"yP=0.487856\"\>"], "Print",
 CellChangeTimes->{{3.5624177893473043`*^9, 3.562417815339437*^9}, {
  3.56241854566224*^9, 3.562418560124865*^9}}]
}, Open  ]],

Cell[BoxData["1.`"], "Output",
 CellChangeTimes->{{3.562373670761614*^9, 3.5623737480782967`*^9}, {
   3.56237380841223*^9, 3.5623738109121437`*^9}, {3.5623738510522118`*^9, 
   3.56237389337144*^9}, {3.562374003625401*^9, 3.562374041514803*^9}, {
   3.562374109721484*^9, 3.562374123878291*^9}, 3.56241762810273*^9, 
   3.562417749142037*^9, {3.562417789343193*^9, 3.5624178153335238`*^9}, {
   3.562418545658153*^9, 3.562418560127571*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"q", "=", 
  RowBox[{"RandomVariate", "[", 
   RowBox[{"UniformDistribution", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"pf", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"q", "*", "xP"}], ",", "oneP", ",", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "-", "q"}], ")"}], "*", "yP"}]}], 
   "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"Total", "[", "pf", "]"}], "\[IndentingNewLine]", 
 RowBox[{"pfNorm", "=", 
  RowBox[{"pf", "/", 
   RowBox[{"Total", "[", "pf", "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"Total", "[", "pfNorm", "]"}]}], "Input",
 CellChangeTimes->{{3.562418047291562*^9, 3.562418082401829*^9}, {
  3.562418132277548*^9, 3.562418136835718*^9}, {3.5624182602745533`*^9, 
  3.562418282615055*^9}}],

Cell[BoxData["0.18667743099106238`"], "Output",
 CellChangeTimes->{{3.562418083119014*^9, 3.5624181477240753`*^9}, {
  3.5624181862249813`*^9, 3.562418187545556*^9}, {3.562418269513606*^9, 
  3.562418283006197*^9}, {3.562418547816958*^9, 3.5624185614277363`*^9}, {
  3.562419432477844*^9, 3.562419435242179*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.09107162098534637`", ",", "0.024288897679263205`", ",", 
   "0.396783930175022`"}], "}"}]], "Output",
 CellChangeTimes->{{3.562418083119014*^9, 3.5624181477240753`*^9}, {
  3.5624181862249813`*^9, 3.562418187545556*^9}, {3.562418269513606*^9, 
  3.562418283006197*^9}, {3.562418547816958*^9, 3.5624185614277363`*^9}, {
  3.562419432477844*^9, 3.5624194352441883`*^9}}],

Cell[BoxData["0.5121444488396316`"], "Output",
 CellChangeTimes->{{3.562418083119014*^9, 3.5624181477240753`*^9}, {
  3.5624181862249813`*^9, 3.562418187545556*^9}, {3.562418269513606*^9, 
  3.562418283006197*^9}, {3.562418547816958*^9, 3.5624185614277363`*^9}, {
  3.562419432477844*^9, 3.562419435245763*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.17782409082376627`", ",", "0.04742587317756678`", ",", 
   "0.7747500359986669`"}], "}"}]], "Output",
 CellChangeTimes->{{3.562418083119014*^9, 3.5624181477240753`*^9}, {
  3.5624181862249813`*^9, 3.562418187545556*^9}, {3.562418269513606*^9, 
  3.562418283006197*^9}, {3.562418547816958*^9, 3.5624185614277363`*^9}, {
  3.562419432477844*^9, 3.562419435247449*^9}}],

Cell[BoxData["0.9999999999999999`"], "Output",
 CellChangeTimes->{{3.562418083119014*^9, 3.5624181477240753`*^9}, {
  3.5624181862249813`*^9, 3.562418187545556*^9}, {3.562418269513606*^9, 
  3.562418283006197*^9}, {3.562418547816958*^9, 3.5624185614277363`*^9}, {
  3.562419432477844*^9, 3.56241943524897*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Exp", "[", "x", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "1"}], ",", "4"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.562373580907134*^9, 3.562373607695839*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV0Hs403scwPFtzTK332PliJRGyVMtjyi5ne8nhe23w9GFlMy9dXvophTt
KLekXE5Yo7mcShHlFFmc/LodJZJHdlZaOe5ZGNYyDu2c88f7ef3/ZobHbIui
kEgkn//6X5XYqVmrVRLSX+J5ARkylK/c1RmjUhLMorDd+bkytHFTQnf3oJLY
FifSvBfLkKD/sZp4rSSWj9UwD1XLkN5q3CqxUEncXS/x/UMqQ1aSPfEkJyUx
ZVEbYMh8h/w6zrLI0WPE2K3CbQn171AlrTWHIh8hemt+P9ejeY9Mcpc0Rx4f
JsJ8Rzhb++TIJ9T0frrXIEEO6Rc8HepGuOHBzBu2fQQr5YFxeV4PGn00Vb0p
s5uQfD3J9svoQwOf9lc8+vE9QbqzJb41ZwC5cQLOavgdBOnkUWEa6TNyUYzE
eoS/IDqPOBexbinQsdNX+e51tcTBt+TSx1GjyO3zpwKX1jyUkn1h7bLAcWSq
abb0fNOISoSHXd7pT6I5IW1+r7QFncPRPXKfCgnbRT1byzuR/b2b6oeLvqEc
Wchu1tculHzYwcImTIPyX0lnlvf9jSzfivV0Lf9BRS+ZO93c+lH19/zjbyy+
I1nan6ScoCH0df813VgRCUKtKl1TGxXImdHeKz1GAXOB4plkaBSZhPZHevGo
8GtX7ZhnxTj61pRpHHibBjUpzZSawEmUpKVOha+lQ7Rx+iNQqFD2ZujiNelD
u57isVisRvy50cEnfUbQ0v/tgJnjFCp/lu8dYWQMkW0BV0VPNSjj5e3OjFYG
XF8R+IPi6AxKiRn23ty/EM4E6zjtos0iUSsu6DI0BS1lR8mVhjlETzY+31Bm
Bksl6mz5Pi1SySPIeIIFKMqYucUJJPBgHDi9ZL8liGzNqA/9yRDMW7F29Qkm
5BXsfRG2jAKMKr7Q2tsaQnKD2wyGKDBfT4f46L4C5rbcmC5unAfjlzLWnBKt
hM8DHnFP06iQ2KElj+iugpvu9otfh+nAgoE4u1vqNXAvJdaYz6JBwaWVp7Jn
7eCifwR3npoGcMRPN7rUHlzkpeVpr+dDt+tdh4YrDuC4fUNQoVAX9l4CwUzJ
eqCcXWwvPEoHVNVULzXeCMUbKvA8jh7wJYj3ocEFzssz66wY+pDUXTKrjncH
T+fn7Ctf9GFWkOD4JBLAN/VnlviBAbDmVBfNzD3AJijZ//oZQ+AGJ6mMVJuh
Y5D+22V/I9jJ4+2aWOUFr8IHNjEsMXhZWdtbEcuGj9SbmjwrDHbcUS08lMiG
8bJ9d81sMJgoJcjrMthg8uWLBZOFAQrevqC1hA2hxyan7FwxoPE++Dm3smEq
SVvlsxMD845Z/RlrDiy/YWaenoWBvpOcby3jgJP3h3aDyxh4pxjqJPZyAB++
mpadj4G1xKq0Z5QDMaxlaqEYg3Tas0/3qTjU19q0l93GYDsmqspdh4Nfk0Pq
8xcYLIL6C5wsHCL2qd3YLRhUXu+2nCrA4YRenaqlDYPq9nOy8jIcCn1dwt5K
MegP5tYtbcRh8C9w6+3DoHhhUJzXKA7TcRRV1BAGOVkfQ5dM42Cw+Hn5sAKD
0yfpgmkqF9aFeJtOTGDwICo15IkFFzzJ9Lbj6v/+7Im2rbLlQuC1V8kaDQZ7
S1l2RY5cOOB50TVhFgOhA+NELnDhzJDPpFaLAd3koDbrJy78C/lYRVM=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-1, 4}, {0., 54.59814446190473}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.56237359566125*^9, 3.562373608358727*^9}},
 ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzlnAl0VFXSx59sIm7j7M44M86+Z5Zv9k3j7rjEfY0Cou2ucTduaNTRKC6N
WyNq49IqRsWgGBAiGkWDEpGgtkCQIEakgQZbY6tR67u/++p2v4R03kv8Zs53
zuScvKT7vn9V3Xur6lbVve/tNfrM4445efSZx48Zve2up4+uOu74MWdsu8up
p5uvBm/keYO28byNDt/WG2L+F8/rdin8fJvLwL+41/4/2Fy6JJfLmd+8d6bf
vrn9M8y0dEiyOiZlPm+piNVIY3v+Wds8VNobE1JRXmabyioqJdHY7o1Wqulk
pTiRB+u1vKbJCeId6Vjk0xJT8p5XJuXllVLXkjmmIFxOUhWelMdbvBG+cFtq
U0u83Hyqlg7z6Tn9riudtJQSrXnvKPvdcEuirhLqhnJDg9TV1ZlfI7lXIU1Z
GWlv29j0tV2StbVS39zui5hrlSpDqrYp4x0dGKpkuZEm0dpTmtaEkaYsYXgV
pcm1Jqw08ZasN6ZAIitJI01Vfbs3yEnd0SqtHXn7yd2XtvTilp4v4ibmkpGG
ZEISCf83maiVcsatolriiaS0ZLpsf2E6RAc6L43xaqmqrh4q1dXVhnBVVVzS
eSmIE0X4Yv87pMbzhT9Wv2uuZRqqpK0rIGi+1ResrFKqYjGJxVQZyiqksjIm
De35DQTtktaGlCRTqaGSSqUM4WSyXjr6KWhBbVSr4s0ZHdFhks9mpKOjXRri
MV+YiqQZHRmlzR2N1eJV1hk5/GHTee7nNMf0uwzUvHJpzooq4lDJphskVuZU
PYYlFdoaqox1JdKWc6K8V30PY32UKnI+m9VO6E+2yRpwbXNRkdN1VYZWrbUd
J4JIu1X4VFuHNbmyDUVIJys2EMGZXFCE5poKqW3JFSRw91Qm094oZ2+5tKTq
0xK4yZgkYjpjGWJMsq7oe+ItKs3mTuB8m8SrqqTSjJdX7ks1SqUKOEp1SUML
xhCrLN9A4q6OOt9xNLRIS1NKKnWeUm35osTG/GrN9zUNaeMsM9KUqNrAQtrr
fE2vSBQGbwvXmVy71KN7xqqzTu+6S3qU3oqkrY1JNx5jtANtDbXOp9rfqmSL
QoZJV6Y54EfR7ri0d0nRcvNSHzNf1zY7ub7gJjCfLwgwshehgs4v7ytW0Zt1
5SWbyUg219XtvmxHh7G1bMFJwD7ng60fMwxO74WVvd7/n2kXv8VcvsVlI/9b
f2y+bttunTBX7rj9Rbn7rpfk3tTLUvdAq0x5+BV5dGpapjcskpkzl8hTs5fK
nGfbZW7zm/JSS4csbF0p6XRG2trWSHv7OjMI70om876sW/eBpfnhh13y6aef
fbEX4bbq5bve7ov63eeh99+G/b+mpzo+ItC0w/YTZbu/TzC3c/2B/c78Z393
2P5W2XXn22XPf06SfSvukoMOSMnhh94vo0bWSezoh+TE4x+RqlMflbPPelzO
P2+G1Fw8S67412y5ZlyT3DB+jiRuabaaCs0HJrfKI1NelcenvS6Ns9rkmaZl
Vjtfnv+2vPbqKlnatlZWvLleVr3zntHKvOSNWX722WdD/x+N3n8b9t+qfT8N
NklX16d2xnO5D61Pwje9bXzU8uXrZOnStbLo9dXyyivvWG158YUV8tyc5dL0
9BtWk6ZPX2R9Hz4QLbs3NV8mJVtk4q0vyM03PS/x656Vq696Wv51+WyroRec
P0POObtBTq96TE46sV5ixzxsNRrNPnD/lOyz913yz92SsvOOt5nFCKvYWnba
YaLssXtS9tvnbjn04Ptk1JEPyLGxh+WUk6bKWWc+Lhde8IRcfumTVvNvvOE5
uW3iC9Y/P1i30Mo284kl0mQ0/sUXV8grC9+x2o4PXru2Uz744GM03ftqL0N2
dC/fHfM57uvFAbimH9vrNvLRR5/Ie+99ZEV7++2cXS4WL15txWYpaX5+uTz9
1Bu2S489mpaHHlxol6FJyXkyITFX4tfPkatrn5bLahrtsDA8p5481Q4Xw3bw
QffaId5tlzukfLtbN7Mj/GXrZyr2ulMOMc3MxvHHTZEzTp9mSTBz15tZhLwd
VcNymvEjs80q98LcFVYzli3LyqpV78n773/ESjaolx7+mwZzH/vnq3bg0F90
F0/GoLWadRcvx4Chp1OMB7zv3petV0Q30Rf0Bu95+mmPyfHHTrGDhKfF6+5Y
PnGEHaCt7Hjtv+/dVoLjYlPs7ReZwam98im56cbnrcozMIQAzz6zTObP75Al
S9bYOWQ+UTEr922+2DG1048//kTefTcvK1fmrKkxz4g8+8mldn4nT14gyTvm
WbW+yswr/M86Y5qcYJz/kZWTrUxm8oZbMbeU7f8xwUqOlbBGIObYi2bKuKub
bOSCqmARWC/W/MYba2XNmk48gC/etb54vcVJfrr1Best1q/PWwvCM6CW0GNt
Qdzbb3vR6sulRgVZm9ClIw6fbNXOjOjGVtTN7YgefGBKjhnzkFU1nAPOgpFk
qSKIQsR2o1osSUatfFkuKS3il+x1c2vULGXMQMu8t+xoQvOuO1vkxvHPyeWX
PWmdEBN+2KH34VxMtIxcm9kh3HvPO+3o4mAYPqwK1WdG5sxpt8Ec9Jk9fs4u
LdK29rqZHTVGGt+DSPhOjJfRunbcM1aZTj6pXioPux9xfGlGWLfH4CEJI4Su
Tb5/gcyatcSODqpOb/k5qbQUv7DXTa2VvGMET7+2ynaEDjEoDDwdRYLDDrlP
dtnpdpNaIMImsvuud1gRiDWwFvQISyLCxcqMLviMxpTm/0d7HWFNgQmdZ0YA
i2S1GB+fI2MvnGnjGRTCxERDlLVZBOz8WNZmzlhUUF8cOT033fF5HBZgbTlv
rwyN3dlhp8MoKUsCpn/J2FmWIUuOCbR8hsPtCoO+MtT0s/6RV605vvnmusJk
71e6m7urZ/rkk0/tMC94+W3bTXT6yiuektNMPzBNYwYG6bNE33A49BHPnbpn
vnWtixettu6Unz1Ks9zXXodjHtb34fNmzFhsnQazhaMwlud3cGOr2Wg9o4lG
Y2X4HZOC+DR3Ks3qUHvdWDo7P7apDOOJO8W50LMD9r9He7Wx7RVrDb6KCUZh
UHsjok/wH6X5uNQavUbBMBXWt5pLGq23MJ5D+QyzysmE4RtJxdCMNas7LaE/
lWbhp6DDZPXq963/Qjx8FkulGSJHHVdKkMJCgbG+9FKHXWT4+W1p6icrdWIp
IEAhASlD0qc+1Ope9bnTrQtgLE3I5dP4ZWnSZyhp+kgohkNnXPBWZj0fpIIT
QWHL2DVrNdOFUvLz49LUz1XqJKT4OGztumufsZZiRn2QCm68g/0KV0q+u2LF
ep/G90uTvlBJY5CYLgEMWQp0DD1HGn/HooXxEbIV9OXbpUnXKGk6SEdxaujk
0UZXjDMZFBhuzJ7ZwLjM7T6NrQOkLeUr7BdD7TC8arIjFvaLx860Cu6o7bbL
7TaGZfKIgoyp+tS+UlrQcfa6qV06cOBo3JijHmTibMaH0Rw1qs7OGjGLCQx8
8FalaV6vsmKUeFUMheXUBAUq6xBLk7EmMHHqu3lpkjeqmCxZlC7wE3QVb+zE
xA7xo6QChrUP7qOIk7DXEdaJ4hURE2MjtPeT3Yn2M96PVZufYaXJ+VHUEDtD
2C+x6ZjRD7oOky4TtjLIhCr8DCpNbZIKx0JBAIf332uPSYXOEvARMxKcGT/7
aWlKdyslvDF5Nd3EA7sZxv1eaXJ0ZsLI/nFpSvfZ6yZ2vp5sbLPRFMYBFezv
/OoZNuIyoZGXL03mASXDXKIeqBaGABmEwkkQtJlgznu/NJmH9TvsBo03GqXa
Ndhq1z13zyfU9d4tTaJevyMiJlE0w1IgwQDjvY079rIBEpbCY/aL4XZBxd1h
MW5mUBnWaDPJq0uzblAKrOLMyBHGWboKCwtUw+OLsN93SlN4QingXnBNLG1Q
wCRItdBB49k6SlNotNeNrT+59ppnCnNJxkV4YHyCt6I0fLYKgMLjcrFHNwiY
O2ukiYbaS1NoUgHINAgOCLWgwBqHIzJT671RGv6sCoD/RpFYdJxDINNgDI0A
S0pTeF4FQKOpFow84oGCTTCmZn69RaXhL9jrMDvUFBHQXn5J3sx36dLIecoY
twsjGMIYAVj4TZzhvVIa/pLCiZ3pJb0FzhpLWmbyXq+1NHyBys3EY8QonYn/
rBtYvnzdywGkBS7U+1F38g6MnVmmn8alvFSa06uKJFvCSJlZBD31lEdZouaV
Rqa1iywieAOySpCsoDgfcq+5peGLFI5zn/ZY2uYwwMkk+Ex2+Xxp+BKF4zSJ
gygJWbiJ/NF1cuc5peG+0g61+Qi+CCg1jGealqnW9gpbpqOFQmM9TmgqJSay
8s3FO16RuWyW/QzFbEhtubYQgxBwOesibzMh+VM+tVEqam975IMc7WyrVLPR
VB6zm1hlVSnJiPRWil2hEMYdi9p3H3/aKPqYzPxJn6nbfA9ugw/SIWfvtpaN
oZjb4/T3cstqm73eOHYoR9wQob9bJak7m5B0VneOwY1IVxLKNvvbVal0vvBd
a6LCfFchrXl/n6sn15XKlXSIlZ6ggfiLwMRI8kQ415a4z6HFcChKEvfHoyXX
K9dVOlnUOXA49JNpnf3kUm9GOEvXqZZckWXwPstyKB8dI1IFE8RYRqQKZgp1
6fr8jHr0bY2OKCY3deprtvaHkyFJXbu2c1oUrpUbcm3pe0SzgXm85ebnrRuk
DEQVwPiIR3vX1yBXx6H73LJzG7NnDXrjul6H96233pXzqqcX/INxyN5Un+VI
vaW3zeCgqcTZVK5MiQ24uvzTBBWJ1l5NJac0KbOYxMEOL+tsZ+dH3iM+W98d
bLCzO1iHyR028cor7cGJsuo6trN7Y/aeMsOBs2jA7ID97iHO9Kb4zI5SWHDH
dnDgO3ZsM9m87WlP8p1KnpB29EjfxVIaNibvPeST783FfqAdIfgksCdeYNUk
YjNut6408sPAnLlQ56QT6qkdaUjbK+xjhRHE45pQMAI+FqA+doC7FMbCyRLt
lgGTp2ocHlifP9VJo3ICD0rnU+tfu7c0+c+UPMUGYjXIn3tOg2SzH3j3lIaJ
wligKFsxetipUSjNM0rDBimWurxzKaTE+XyXd2cIdrBiWVXYQ0SX2J1Jv7ZK
M6XS2KGKpfytpTW5c1KLDSDuCMEOUyw1QjcLZ5ronPri7SHY4TopFCxYHSio
pdOZ20Jgmyjs9dcz1rUDNe5wYghshEpK4Z78AUkJ5yiiTQjBbqpYPC85JVgy
Goo/iRDs5ioum0AEd+QQJgG/JQArorZQRuRbxHEwIipkKm4KYbSlYlnm2eEI
TsWNIditVEiqMKgsU7F06dobQmBfDEwF4SeFPROGjQ+BfUlhlD4J/lA4owTx
ENiXtYP4S/Yo6CC6Tqh5XQj2K4ol1KNyD5baObPfx/aJvX5NxaWEj11Ruly3
7oNrQmBfVxjRMWNK0mhyh3EhsK0VRvGb3Rf0xVjm1SGwbygMzaGuiBedMWPx
VSGwbyoM+6UczLiYlb02ACuittGbWRpIJVU7rwzh8S2FYT0Uy4HdMH7OFSGw
7yiMgiUQqsWGxOUhsG0VhtkAoy5kBL4sBPZdhVGsAEbQYZLHS0Ng31MYKSkw
yqDGX9eEwL6vMNY88mGWSRNg9bFLZq8/UBjLGBNMQc+Y98UhsB8qDBeEJpJD
r1nTOTYE9iOFsS4QubPLarhdFAL7scKIjOFG6m36dmEAVkT9JCAa5UQGwozf
BSE8fqow9lwYP1Zos/SdHwL7mcKoCDBb1OOMbpwXAvu5wkjXgLHQGU2sDoH9
QhuIlIFdfdXTXhjml9rAaQgwN97wnBb4S2PKtIEtGzBmhfLOiYQZYuMUt1jc
f98C3RONmkDb66+UFOZNqR5SJlg8yyd1pMKkq02qPf8U+RB7HS7J1pxPKHr2
bK+/Vo74IWIynPKTjW165H2k/WNW0myzf3S5KikNDfX2tHiKU5s2FyiZQpfk
+hvlSkmJCiy6/crCd/zNncJxVck0uvPomoUMkY7WtKwsptBRM2h7/a3SIGyh
tkIdzCS3/sQW0q58W0o4pFzkGjF9Hlrg6Lq3YsV6GyKze5zLfXiaz8idrvUJ
xMTN3EDyWHv9nbJbsGCljeCod5n5rOrOjhzHnviv8PO3AbP7vTY8MWOxq314
VT01NCcdGb8s7+o6AX7B5Dlq7myvf9AGchpY333XS96pPVhLm0lLTTYcYO1n
yBXSbFgHMuioCbS9/lEb2FOGdeOsNu8Un/VI+2cLv4dl1dLU2ioNyWpLQx8C
kD6y55JW8kedVxIR6mhYycLWlScHueJKMlJXXaHcPNvR+rZcoZwWPYm21z8p
U4yErEeNRM9WFGoTuawJObN0pTBkYUm0vf5ZyTvToOpoTONEn3xJH/sXhRVU
/OSpqPgJIbC/agObrXbZqH3aC8P8TRs4awHm8WmvqxMPw/h+2+0ULl68+rgA
rIj6u97M7jg1Cg5EmCE4NoTHPxTGcTMCFnbOzZITC4Ftpw3s+tKde+6e74Vh
ttcGAlNCgpZ5b+kRtDDMEHtogaCITN0kJUeHwMoVxlFLSmEkBGZi+zhKY687
aANBC72KXz/HC8PsqA3sWYCZNWuJOscwjL88UpIkdmtflh0dAttJYZxSYC+W
BcCkWqNCYDtrA1EiiZzJqrwwzC7a4ILtBx9cqK6hp97tqneiOCjoG2+sVa9Z
mvqu2hF0lQyKWopxR0eEwHbTBmp/CDUhMdcLw+yuDRyWJQoxpu5VRsL4Ssdm
C9uSnZ0fHR4C+6c2YEro95VmBQvD7KENLhcyqah3WCSMrz2E7vjStWs7Dw2B
7akN2AQTdc7ZDV4YZi9tcGZuokbvkEgYP3ClukElz/jlgwOwImpvvZkiHrUX
tqw/+eTTg0J4VGgDJxCRa1KyxQvD7KMNl+luIYW3AyNh/OSbwhvryocfdh0Q
AttXG0iwbI4w/jkvDLOfNrCLjfa8/nrG2z8SZoit/HPGjoKUGb39QmD7a8NT
6uYm37/AC8McoA1E88wo28r7RsSwQ4yLQ+PCMAdqA2cZkI1toX0iYYbY0hEG
wYadmbGKAKyIOkipcOaCcb5mXJNXEcLgYG1wPt6ES97ekTC+E6FYR25uLHav
ENgh2sAJIBeLhmEO1QaOe2LZHBzbMyKGwzlsHpj4IhRzmDY8oqWU6dMXeXqG
0iVX+XzOPuBsYtNCPhopRz1MhwuvwdEenNr69Xnfp+qCQviXl/rqskJUWlZW
LtXJJhswDmCn114P1wYObVPguMpEc93YUrbtkuZUrcRTTZKxHclLY40Ro6q+
kJz2Z7/XXiu1gfNerEwmstOTroXHaCXnP05a39EV3OHtV3rq2ODCGFQT4/Zk
k29NWlxtczaYk0bd0bXXI3roRlPTMm+3oG5sYkctk+mQdGPST/u9MmkwPYu+
pRuYL9/aMSpWaBM87NqTWUZSgfylRh9/HXB+6jJBjodqLcZTnsUHWxttx+ra
8sqr/5u59jpSGzhMj3FyGm2XoEqy3ZGThkQdmq0/eUmU+SoI94Fs6XbjTZjA
MnntuGccb79pC//R5FhKOoyhtzen7AarFyuaQn8zUuc82GLFJRNC7hxkidfI
mnS0vDCdlFLq0gNORx1H0lHCjjNOn+Y4Fgo29hH2Dsl19TMXdQQ4eYeiPP/c
cq+P498BjB/SEWMQ2Zv/dwyBuc1nFxATpYdh3OPE1MHpuskRvR0iYjjSzgTd
MH5ON0wR4h4zYlcUZ/rmm+u88hDqDkM2gLabECMU4x5dcvnJiy+u0IcTwjB+
4cM+7zayDieyXQjMvWaAo8Owmjr1NS8M457FpljOthubWH0cze+GIU2Dj9Gf
UMxx2sDGEIkUG9F/j4jh2K1uJoViXLmZTT3qK5y2+FtEDFuP8LlzUkso5gRt
oOzPthrK+dcApghxd/Lgj+5ydbuzN+onagPbilQF2Hf9S0QMTwyySt9yc3Mo
5iRtoKjHOUOTnHl/jojhaAZuFxMLw5ysDWwPEPdxqr+PpzO6YTivSr0H9x6G
OUUb2JYFY7D66FE4hh1kZDMyhmJO1QYO1TMGxLF/iIjhyU7G2ox5KKZKG8xc
2jnl+MvvA5gixN3JaXc05uKxM7vd2Rv107SBM7FQ57jL7yJistkP7GhRUQzD
uAZmheKlieS9/4mI4fAdjpwKShjmDG3gUQ3cM49k/DYihiTL9zEvh2LO1AYW
JjI446a930TEcHQaPo89mg7FnKUNbM2y1nJy49cRMa7eQJkmKobqLTHqcbEp
3TBFyNl6Jwe4oG5WAO9XIdQdhrMkeP6zznw8FHOONnDAEz5tbWu8sogYjpdj
AZfWNIZiztUGnqrEjvEXfTx81Q2Dv8DHxK97NhRTrQ0cEsL28ef+lm7/9kcd
HXw845K8Y56jUzjel2+xYW7chO0DTTTP0wYOLrCIslj/PMjGRPVdrZZNotW9
J2YAiaXj4xZ4okLl47KHrkyLJBPFt1sl4v7rdSqqayVhktyVAzhObK/nawNV
bY5+YVw/68473+pnJuWxKonxwqpKP0srK6+QWE29NPVvV9RNHod46C1nM3tw
JDdij7K6ocOXtccoDzgndL0lFeUwqnFdjvdI+2eEzX8qyQnb4dtisxNDsyff
frG9QBucHZtUzfPPWxTS33waOjUmRfPZF1kOMCV1PAnSWW3YGlGefvIy3Kdd
Uenkt7CB7oteqA0Ua1l0eJjkJ0F2m0Hcvr7LFz2r8P5nn44VZXtG85EprzpW
BevPtRTelzXQlPMibWDZoWzBJ31m1KVXXflc4QyxG61IKaejzSMSdOHl+W97
fTyP2g3DAoI3GnvhzFDMWG3glDmOnQfLfhQRw5tPCIcI1MMwF2vDuWc32I0u
Dhr/MIApQtydzc1vFnbffhiROqVGDmyYJC0Uc4k28BgPfJYsWeP9ICKGpZPl
iaAuDFOjDZzCA0MC1Mfjv90wPEVny/mTF4RiLtUGElSCE05ofi8ihsc/4WPG
PDKGwgZBnZnRUMxl2sCeGBrDGd7vRsSwj4RmGg0NxVyuDZTNqYSQpG8bwBQh
7k5eDUHPjZ11u7M36v/SBvdeKT59JyLGbbeZ5DYyhlIWgRN7TWGYKwI9pyaM
ffXxJHg3DOcAXYE3Kob1kf2p6nOnh2Ku1AaeSGImSZ6/FRHDk6iuNhuGqdUG
98oXPm0TEcN5ePi89uqqbpgixN3Z2fmRtWN2mcKoX6UNlA0ofqCP34yI4fFN
JJo5c0lkDP6PrW2iljDM1drAI67YJM/VfiMihlKDKwCFYcZpg3ulB35p64gY
d3KM1S8qhtWPM/GcNgvDXKMNHCVgC5QH9L8eEeOCCzxHGOZabaAITBzNp68F
MEWIu9OdX6XU8LWI1DlEQglg4q0vhGKu0wb2IzhbRFT/1YgYt8k816wWUTFU
aPFLlFvCMNdrA5sHBKasmH28LKIbxpUmjT07zEj7h7iUF7eZ5DFrj6P1ay8z
HphATtjxyX80IrCRaRK78uIrRMtMUl2darH7pgPNLx1b3jxEr7DRbmzZyMxK
XU2V1CQbxY+Ys5KqJJ90b4seQL7p+BLhwTd1z3zHt7CR2c4rX8vJ6Qa8kTle
G3DYPC3Hpy/1YNPRoNlGbsAbmY7Nww/5R8mXLl3r2BTPvOaloYYspkwaMxHz
x2LG6rSPVIoV7tYJcx0HX/tG2PfEZrMd0tpUJ9UV7i2zSRKMAWeNN2gDjzGT
mvPpi93ZttXFChpptbIyLrqXOeDDtY7tDPXOryx8pzvbIYUcuaquWTK5rsE9
yPd7C9OxZPGlmkotSVn6+fHmtjdlsVpJJhMSj8ftzr7f0f49jmqvN2oDLxsj
XeEVOFsF+fkZZKU/qqYvXIfzvmOfSj8zScfObUjNm/eWY3e0amhXtl3aM4V3
DUukLNLRdWsiJfs+XpFjrzdpAy++ImahaPuFiBiXs815tj0yhjyClaHm4lmh
mJu1gb1Ijh8RT20ZwBQh7k53Xmv27KXd7uyLOuVdJt1MfijmFm3ggWUUk6rG
FhExvN7HnRCPiiHCI+6+4PwZoZiENrCOIhvRTR9vM+qG4fy0y76jYpCNrdHz
z5sRipnQi2ybRcQ42Ri3qBg7p2bcmNMwzK3awAu9iPSp6m4awBQh7k6nZSYy
6nZnX9TJoDj7fMnYWaGYidpAnErJntf5jYiI4Z1bziajYrBJ3rVDnh6G+Q+9
cPzztnsb/S+um1XM\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"g", "=", "3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"h", "=", "4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"gp", "=", 
  RowBox[{"g", " ", "0.5"}]}], "\[IndentingNewLine]", 
 RowBox[{"hp", "=", 
  RowBox[{"h", " ", "0.5"}]}], "\[IndentingNewLine]", 
 RowBox[{"gp", "+", "hp"}]}], "Input",
 CellChangeTimes->{{3.562376434582211*^9, 3.562376480621303*^9}, {
  3.562376537257259*^9, 3.562376566496611*^9}}],

Cell[BoxData["1.5`"], "Output",
 CellChangeTimes->{
  3.562376481184663*^9, {3.562376540252103*^9, 3.5623765670963297`*^9}}],

Cell[BoxData["2.`"], "Output",
 CellChangeTimes->{
  3.562376481184663*^9, {3.562376540252103*^9, 3.56237656709788*^9}}],

Cell[BoxData["3.5`"], "Output",
 CellChangeTimes->{
  3.562376481184663*^9, {3.562376540252103*^9, 3.562376567098967*^9}}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Policy Based Vote", "Section",
 CellChangeTimes->{{3.562516624838056*^9, 3.562516630828402*^9}}],

Cell[CellGroupData[{

Cell["Functions", "Subsection",
 CellChangeTimes->{{3.5625370243917913`*^9, 3.562537025486286*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"UniRand", "[", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"RandomVariate", "[", 
     RowBox[{"UniformDistribution", "[", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1"}], "}"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.562517372334568*^9, 3.562517399034753*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"PoliticalPlayer", "[", "numPolices_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"UniRand", "[", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "numPolices"}], "}"}]}], "]"}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.562517437175235*^9, 3.56251743873705*^9}, {
  3.562517618542489*^9, 3.56251766840592*^9}, {3.562517733953994*^9, 
  3.562517812500198*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"P", "[", 
    RowBox[{"b_", ",", "x_", ",", "k_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"j", "=", "1"}], 
       RowBox[{"Length", "[", "k", "]"}]], 
      RowBox[{
       RowBox[{"b", "[", 
        RowBox[{"[", "j", "]"}], "]"}], "*", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"x", "[", 
           RowBox[{"[", "j", "]"}], "]"}], "-", 
          RowBox[{"k", "[", 
           RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "2"]}]}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5625184684139233`*^9, 3.56251853171483*^9}, {
  3.562518586971394*^9, 3.5625187162845*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"VoterChoice", "[", 
   RowBox[{"voterI_", ",", "b_", ",", "candidates_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "scores", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"scores", "=", 
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"P", "[", 
          RowBox[{"b", ",", "#", ",", "voterI"}], "]"}], "&"}], ",", 
        "candidates"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"First", "[", 
      RowBox[{"Ordering", "[", 
       RowBox[{"scores", ",", "1"}], "]"}], "]"}]}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.562519043740055*^9, 3.5625191198083467`*^9}, {
   3.562519537617128*^9, 3.562519551845477*^9}, {3.562520029342092*^9, 
   3.562520043095837*^9}, {3.562520288222934*^9, 3.5625202914544563`*^9}, {
   3.562520400712524*^9, 3.562520400976688*^9}, 3.56252107881701*^9, {
   3.562529096775565*^9, 3.562529098449439*^9}, {3.56253705762948*^9, 
   3.562537057946579*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"DistrictTally", "[", 
   RowBox[{"voters_", ",", "b_", ",", "candidates_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Sort", "[", 
     RowBox[{"Tally", "[", 
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"VoterChoice", "[", 
          RowBox[{"#", ",", "b", ",", "candidates"}], "]"}], "&"}], ",", 
        "voters"}], "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.5625201799476337`*^9, 3.562520246602754*^9}, {
  3.5625202994031353`*^9, 3.562520383174765*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"RandomVoters", "[", 
   RowBox[{"nVoters_", ",", "candidates_", ",", "nPolices_", ",", "b_"}], 
   "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "voter", ",", "nCandidates", ",", "tally", ",", "range", ",", "freeq", 
      ",", "posq"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"voter", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"PoliticalPlayer", "[", "nPolices", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "nVoters"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"nCandidates", "=", 
      RowBox[{"Length", "[", "candidates", "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"tally", "=", 
      RowBox[{"DistrictTally", "[", 
       RowBox[{"voter", ",", "b", ",", "candidates"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Length", "[", "tally", "]"}], "\[Equal]", " ", 
        "nCandidates"}], ",", 
       RowBox[{"tally", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", "\[IndentingNewLine]", 
       
       RowBox[{
        RowBox[{"range", "=", 
         RowBox[{"Range", "[", "nCandidates", "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"freeq", "=", 
         RowBox[{"Map", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"FreeQ", "[", 
             RowBox[{
              RowBox[{"tally", "[", 
               RowBox[{"[", 
                RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", "#"}], "]"}], 
            "&"}], ",", "range"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"posq", "=", 
         RowBox[{"Flatten", "[", 
          RowBox[{"Position", "[", 
           RowBox[{"freeq", ",", "True"}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Sort", "[", 
          RowBox[{"Join", "[", 
           RowBox[{"tally", ",", 
            RowBox[{"Map", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"{", 
                RowBox[{"#", ",", "0"}], "}"}], "&"}], ",", 
              RowBox[{"range", "[", 
               RowBox[{"[", "posq", "]"}], "]"}]}], "]"}]}], "]"}], "]"}], 
         "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}]}]}], "\[IndentingNewLine]", 
      "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.562520534046517*^9, 3.56252053904097*^9}, {
  3.562520570546377*^9, 3.5625205749301367`*^9}, {3.562520636572195*^9, 
  3.562520654069549*^9}, {3.562520690056222*^9, 3.562520759266685*^9}, {
  3.562521085089652*^9, 3.562521087903903*^9}, {3.562521311190198*^9, 
  3.562521313707266*^9}, {3.562526961403514*^9, 3.5625269637493963`*^9}, {
  3.56252699685571*^9, 3.56252719864542*^9}, {3.562527232160015*^9, 
  3.562527415017166*^9}, {3.562527853428491*^9, 3.5625279043727617`*^9}, {
  3.562527938679805*^9, 3.5625279747704897`*^9}, {3.5625280238491707`*^9, 
  3.562528135683337*^9}, {3.562528225440373*^9, 3.562528270191105*^9}, {
  3.562528305774172*^9, 3.562528310252741*^9}, {3.5625291524382133`*^9, 
  3.5625291540193977`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ElectionResults", "[", "precictVotes_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"totalsPerCand", ",", "totalVotes"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"totalsPerCand", "=", 
      RowBox[{"Map", "[", 
       RowBox[{"Total", ",", 
        RowBox[{"Transpose", "[", "precictVotes", "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"totalVotes", "=", 
      RowBox[{"Total", "[", "totalsPerCand", "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"N", "[", 
      RowBox[{"totalsPerCand", "/", "totalVotes"}], "]"}]}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{3.562547606699421*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Coord", "[", 
    RowBox[{"val_", ",", "dim2_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"mod", ",", "row", ",", "col"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"mod", "=", 
       RowBox[{"Mod", "[", 
        RowBox[{"val", ",", "dim2"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"mod", "\[Equal]", "0"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"row", "=", 
          RowBox[{"val", "/", "dim2"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"col", "=", "dim2"}], ";"}], "\[IndentingNewLine]", ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"row", "=", 
          RowBox[{"Floor", "[", 
           RowBox[{
            RowBox[{"val", "/", "dim2"}], "+", "1"}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"col", "=", "mod"}], ";"}]}], "\[IndentingNewLine]", "]"}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"row", ",", "col"}], "}"}]}]}], "\[IndentingNewLine]", "]"}]}],
   ";"}]], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Random Candidates and Voters", "Subsection",
 CellChangeTimes->{3.562540747264576*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"nCandidates", "=", "3"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"cand", "=", 
   RowBox[{"Range", "[", "nCandidates", "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"nPolices", "=", "8"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"b", "=", 
    RowBox[{"Table", "[", 
     RowBox[{"1", ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "nPolices"}], "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"candidate", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"PoliticalPlayer", "[", "nPolices", "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "nCandidates"}], "}"}]}], "]"}]}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"candidate", "=", 
    RowBox[{"(", GridBox[{
       {"1", "0", "0", "1", "0", "1", "1", "1"},
       {"0", ".5", "1", "0", "1", "0", "0", "0"},
       {"0", "0", ".5", "0", "1", "0", "0", ".5"}
      }], ")"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"c1", "=", 
     RowBox[{"Left", " ", "wing"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"c2", "=", 
     RowBox[{"Right", " ", "wing"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"c3", "=", "Others"}], ";", "\[IndentingNewLine]", 
    "\[IndentingNewLine]", 
    RowBox[{"1", ":", " ", 
     RowBox[{
     "Should", " ", "abortion", " ", "remain", " ", "a", " ", "legal", " ", 
      "option", " ", "in", " ", 
      RowBox[{"America", "?"}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"2", ":", " ", 
     RowBox[{
     "Should", " ", "law", " ", "enforcement", " ", "be", " ", "allowed", " ",
       "to", " ", "use", " ", "racial", " ", 
      RowBox[{"profiling", "?"}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"3", ":", " ", 
     RowBox[{
     "Should", " ", "the", " ", "federal", " ", "deficit", " ", "be", " ", 
      "reduced", " ", "without", " ", "raising", " ", "any", " ", 
      RowBox[{"taxes", "?"}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"4", ":", " ", 
     RowBox[{
     "Are", " ", "the", " ", "March", " ", "2010", " ", "federal", " ", 
      "health", " ", "care", " ", "reform", " ", "laws", " ", 
      RowBox[{"(", "\"\<Obamacare\>\"", ")"}], " ", "good", " ", "for", " ", 
      RowBox[{"America", "?"}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"5", ":", " ", 
     RowBox[{
     "Should", " ", "state", " ", "and", " ", "local", " ", "law", " ", 
      "enforcement", " ", "be", " ", "empowered", " ", "to", " ", "enforce", 
      " ", "federal", " ", "immigration", " ", 
      RowBox[{"laws", "?"}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"6", ":", " ", 
     RowBox[{"Should", " ", "gay", " ", "marriage", " ", "be", " ", 
      RowBox[{"legal", "?"}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"7", ":", " ", 
     RowBox[{
     "Should", " ", "marijuana", " ", "be", " ", "a", " ", "medical", " ", 
      RowBox[{"option", "?"}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"8", ":", " ", 
     RowBox[{
     "Should", " ", "the", " ", "wealthiest", " ", "1", "%", " ", "of", " ", 
      "Americans", " ", "be", " ", "taxed", " ", "more", " ", 
      RowBox[{"heavily", "?"}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Source", "\[Rule]", 
      RowBox[{"http", ":"}]}], "//", 
     RowBox[{
      RowBox[{"2012", 
       RowBox[{
        RowBox[{"election", ".", "procon", ".", "org"}], "/", 
        RowBox[{"view", ".", "source"}]}]}], "-", "summary", "-", 
      RowBox[{"chart", ".", "php"}]}]}], ";"}], "\[IndentingNewLine]", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"BarChart", "[", 
  RowBox[{"candidate", ",", 
   RowBox[{"ChartLabels", "\[Rule]", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"\"\<c1\>\"", ",", "\"\<c2\>\"", ",", "\"\<c3\>\""}], "}"}], 
      ",", 
      RowBox[{"Range", "[", "nPolices", "]"}]}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.562517923208364*^9, 3.562518012382176*^9}, {
   3.562518083482675*^9, 3.562518115905304*^9}, {3.562518241760151*^9, 
   3.5625182439395*^9}, {3.562518316223515*^9, 3.5625183363287582`*^9}, {
   3.562518555643342*^9, 3.562518563335449*^9}, {3.56251873570428*^9, 
   3.562518750186657*^9}, 3.56252109628929*^9, {3.5625212375146103`*^9, 
   3.562521257158534*^9}, 3.562528556240996*^9, 3.562529045224869*^9, {
   3.562529113230624*^9, 3.562529122047525*^9}, {3.562539298978148*^9, 
   3.562539420593028*^9}, {3.562541947205614*^9, 3.5625419638260727`*^9}, {
   3.5625420081835623`*^9, 3.562542041167158*^9}, {3.5625420783383083`*^9, 
   3.5625421321154947`*^9}, {3.5625421988989077`*^9, 3.562542220577785*^9}, {
   3.562542274838869*^9, 3.5625422775169907`*^9}, {3.562542334217223*^9, 
   3.5625423670093412`*^9}, {3.562542509268311*^9, 3.562542571299554*^9}, {
   3.562542655821809*^9, 3.562542775423459*^9}, {3.5625428242583723`*^9, 
   3.5625428579373198`*^9}, {3.562542916570312*^9, 3.562543007654461*^9}, {
   3.56254307064939*^9, 3.562543077689357*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {Opacity[0], PointBox[{{0, 0}}]}, 
   {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
    EdgeForm[Opacity[0.7]], {}, {{{}, {
       {RGBColor[0.66, 0.7960000000000002, 1.], EdgeForm[Opacity[0.7]], 
        TagBox[
         TooltipBox[
          TagBox[
           DynamicBox[{
             FEPrivate`If[
              CurrentValue["MouseOver"], 
              EdgeForm[{
                GrayLevel[0.5], 
                AbsoluteThickness[1.5], 
                Opacity[0.66]}], {}, {}], 
             RectangleBox[{0.2, 0.}, {1.2, 1.}, "RoundingRadius" -> 0]},
            
            ImageSizeCache->{{26.531518000458608`, 
             46.93910800275165}, {-177.24999999999997`, 136.25373822262046`}}],
           StatusArea[#, 1]& ,
           TagBoxNote->"1"],
          StyleBox["1", {
            GrayLevel[0]}, StripOnInput -> False]],
         Annotation[#, 
          Style[1, {
            GrayLevel[0]}], "Tooltip"]& ]}, 
       {RGBColor[0.66, 0.970857142857143, 1.], EdgeForm[Opacity[0.7]], 
        TagBox[
         TooltipBox[
          TagBox[
           DynamicBox[{
             FEPrivate`If[
              CurrentValue["MouseOver"], 
              EdgeForm[{
                GrayLevel[0.5], 
                AbsoluteThickness[1.5], 
                Opacity[0.66]}], {}, {}], 
             RectangleBox[{1.3, 0.}, {2.3, 0.}, "RoundingRadius" -> 0]},
            
            ImageSizeCache->{{47.32986700298096, 67.73745700527401}, {
             134.75373822262046`, 136.25373822262046`}}],
           StatusArea[#, 0]& ,
           TagBoxNote->"0"],
          StyleBox["0", {
            GrayLevel[0]}, StripOnInput -> False]],
         Annotation[#, 
          Style[0, {
            GrayLevel[0]}], "Tooltip"]& ]}, 
       {RGBColor[0.66, 1., 0.8542857142857142], EdgeForm[Opacity[0.7]], 
        TagBox[
         TooltipBox[
          TagBox[
           DynamicBox[{
             FEPrivate`If[
              CurrentValue["MouseOver"], 
              EdgeForm[{
                GrayLevel[0.5], 
                AbsoluteThickness[1.5], 
                Opacity[0.66]}], {}, {}], 
             RectangleBox[{2.4, 0.}, {3.4, 0.}, "RoundingRadius" -> 0]},
            
            ImageSizeCache->{{68.1282160055033, 88.53580600779637}, {
             134.75373822262046`, 136.25373822262046`}}],
           StatusArea[#, 0]& ,
           TagBoxNote->"0"],
          StyleBox["0", {
            GrayLevel[0]}, StripOnInput -> False]],
         Annotation[#, 
          Style[0, {
            GrayLevel[0]}], "Tooltip"]& ]}, 
       {RGBColor[0.66, 1., 0.6794285714285714], EdgeForm[Opacity[0.7]], 
        TagBox[
         TooltipBox[
          TagBox[
           DynamicBox[{
             FEPrivate`If[
              CurrentValue["MouseOver"], 
              EdgeForm[{
                GrayLevel[0.5], 
                AbsoluteThickness[1.5], 
                Opacity[0.66]}], {}, {}], 
             RectangleBox[{3.5, 0.}, {4.5, 1.}, "RoundingRadius" -> 0]},
            
            ImageSizeCache->{{88.92656500802568, 
             109.33415501031871`}, {-177.24999999999997`, 
             136.25373822262046`}}],
           StatusArea[#, 1]& ,
           TagBoxNote->"1"],
          StyleBox["1", {
            GrayLevel[0]}, StripOnInput -> False]],
         Annotation[#, 
          Style[1, {
            GrayLevel[0]}], "Tooltip"]& ]}, 
       {RGBColor[0.8154285714285715, 1., 0.66], EdgeForm[Opacity[0.7]], 
        TagBox[
         TooltipBox[
          TagBox[
           DynamicBox[{
             FEPrivate`If[
              CurrentValue["MouseOver"], 
              EdgeForm[{
                GrayLevel[0.5], 
                AbsoluteThickness[1.5], 
                Opacity[0.66]}], {}, {}], 
             RectangleBox[{4.6, 0.}, {5.6, 0.}, "RoundingRadius" -> 0]},
            ImageSizeCache->{{109.72491401054802`, 130.13250401284105`}, {
             134.75373822262046`, 136.25373822262046`}}],
           StatusArea[#, 0]& ,
           TagBoxNote->"0"],
          StyleBox["0", {
            GrayLevel[0]}, StripOnInput -> False]],
         Annotation[#, 
          Style[0, {
            GrayLevel[0]}], "Tooltip"]& ]}, 
       {RGBColor[0.9902857142857143, 1., 0.66], EdgeForm[Opacity[0.7]], 
        TagBox[
         TooltipBox[
          TagBox[
           DynamicBox[{
             FEPrivate`If[
              CurrentValue["MouseOver"], 
              EdgeForm[{
                GrayLevel[0.5], 
                AbsoluteThickness[1.5], 
                Opacity[0.66]}], {}, {}], 
             
             RectangleBox[{5.699999999999999, 0.}, {6.699999999999999, 1.}, 
              "RoundingRadius" -> 0]},
            
            ImageSizeCache->{{130.52326301307036`, 
             150.9308530153634}, {-177.24999999999997`, 136.25373822262046`}}],
           StatusArea[#, 1]& ,
           TagBoxNote->"1"],
          StyleBox["1", {
            GrayLevel[0]}, StripOnInput -> False]],
         Annotation[#, 
          Style[1, {
            GrayLevel[0]}], "Tooltip"]& ]}, 
       {RGBColor[1., 0.8348571428571429, 0.66], EdgeForm[Opacity[0.7]], 
        TagBox[
         TooltipBox[
          TagBox[
           DynamicBox[{
             FEPrivate`If[
              CurrentValue["MouseOver"], 
              EdgeForm[{
                GrayLevel[0.5], 
                AbsoluteThickness[1.5], 
                Opacity[0.66]}], {}, {}], 
             
             RectangleBox[{6.799999999999999, 0.}, {7.799999999999999, 1.}, 
              "RoundingRadius" -> 0]},
            
            ImageSizeCache->{{151.3216120155927, 
             171.72920201788577`}, {-177.24999999999997`, 
             136.25373822262046`}}],
           StatusArea[#, 1]& ,
           TagBoxNote->"1"],
          StyleBox["1", {
            GrayLevel[0]}, StripOnInput -> False]],
         Annotation[#, 
          Style[1, {
            GrayLevel[0]}], "Tooltip"]& ]}, 
       {RGBColor[1., 0.66, 0.66], EdgeForm[Opacity[0.7]], 
        TagBox[
         TooltipBox[
          TagBox[
           DynamicBox[{
             FEPrivate`If[
              CurrentValue["MouseOver"], 
              EdgeForm[{
                GrayLevel[0.5], 
                AbsoluteThickness[1.5], 
                Opacity[0.66]}], {}, {}], 
             
             RectangleBox[{7.899999999999999, 0.}, {8.899999999999999, 1.}, 
              "RoundingRadius" -> 0]},
            
            ImageSizeCache->{{172.11996101811505`, 
             192.5275510204081}, {-177.24999999999997`, 136.25373822262046`}}],
           StatusArea[#, 1]& ,
           TagBoxNote->"1"],
          StyleBox["1", {
            GrayLevel[0]}, StripOnInput -> False]],
         Annotation[#, 
          Style[1, {
            GrayLevel[0]}], "Tooltip"]& ]}}, {}, {}}, {{}, {
       {RGBColor[0.66, 0.7960000000000002, 1.], EdgeForm[Opacity[0.7]], 
        TagBox[
         TooltipBox[
          TagBox[
           DynamicBox[{
             FEPrivate`If[
              CurrentValue["MouseOver"], 
              EdgeForm[{
                GrayLevel[0.5], 
                AbsoluteThickness[1.5], 
                Opacity[0.66]}], {}, {}], 
             
             RectangleBox[{9.099999999999998, 0.}, {10.099999999999998`, 0.}, 
              "RoundingRadius" -> 0]},
            
            ImageSizeCache->{{194.8090690208667, 215.21665902315974`}, {
             134.75373822262046`, 136.25373822262046`}}],
           StatusArea[#, 0]& ,
           TagBoxNote->"0"],
          StyleBox["0", {
            GrayLevel[0]}, StripOnInput -> False]],
         Annotation[#, 
          Style[0, {
            GrayLevel[0]}], "Tooltip"]& ]}, 
       {RGBColor[0.66, 0.970857142857143, 1.], EdgeForm[Opacity[0.7]], 
        TagBox[
         TooltipBox[
          TagBox[
           DynamicBox[{
             FEPrivate`If[
              CurrentValue["MouseOver"], 
              EdgeForm[{
                GrayLevel[0.5], 
                AbsoluteThickness[1.5], 
                Opacity[0.66]}], {}, {}], 
             
             RectangleBox[{10.199999999999998`, 0.}, {11.199999999999998`, 
              0.5}, "RoundingRadius" -> 0]},
            
            ImageSizeCache->{{215.60741802338904`, 
             236.0150080256821}, {-21.248130888689758`, 136.25373822262046`}}],
           StatusArea[#, 0.5]& ,
           TagBoxNote->"0.5"],
          StyleBox["0.5`", {
            GrayLevel[0]}, StripOnInput -> False]],
         Annotation[#, 
          Style[0.5, {
            GrayLevel[0]}], "Tooltip"]& ]}, 
       {RGBColor[0.66, 1., 0.8542857142857142], EdgeForm[Opacity[0.7]], 
        TagBox[
         TooltipBox[
          TagBox[
           DynamicBox[{
             FEPrivate`If[
              CurrentValue["MouseOver"], 
              EdgeForm[{
                GrayLevel[0.5], 
                AbsoluteThickness[1.5], 
                Opacity[0.66]}], {}, {}], 
             
             RectangleBox[{11.299999999999997`, 0.}, {12.299999999999997`, 
              1.}, "RoundingRadius" -> 0]},
            
            ImageSizeCache->{{236.4057670259114, 
             256.81335702820445`}, {-177.24999999999997`, 
             136.25373822262046`}}],
           StatusArea[#, 1]& ,
           TagBoxNote->"1"],
          StyleBox["1", {
            GrayLevel[0]}, StripOnInput -> False]],
         Annotation[#, 
          Style[1, {
            GrayLevel[0]}], "Tooltip"]& ]}, 
       {RGBColor[0.66, 1., 0.6794285714285714], EdgeForm[Opacity[0.7]], 
        TagBox[
         TooltipBox[
          TagBox[
           DynamicBox[{
             FEPrivate`If[
              CurrentValue["MouseOver"], 
              EdgeForm[{
                GrayLevel[0.5], 
                AbsoluteThickness[1.5], 
                Opacity[0.66]}], {}, {}], 
             RectangleBox[{12.399999999999997`, 0.}, {13.399999999999997`, 
              0.}, "RoundingRadius" -> 0]},
            
            ImageSizeCache->{{257.2041160284337, 277.6117060307268}, {
             134.75373822262046`, 136.25373822262046`}}],
           StatusArea[#, 0]& ,
           TagBoxNote->"0"],
          StyleBox["0", {
            GrayLevel[0]}, StripOnInput -> False]],
         Annotation[#, 
          Style[0, {
            GrayLevel[0]}], "Tooltip"]& ]}, 
       {RGBColor[0.8154285714285715, 1., 0.66], EdgeForm[Opacity[0.7]], 
        TagBox[
         TooltipBox[
          TagBox[
           DynamicBox[{
             FEPrivate`If[
              CurrentValue["MouseOver"], 
              EdgeForm[{
                GrayLevel[0.5], 
                AbsoluteThickness[1.5], 
                Opacity[0.66]}], {}, {}], 
             
             RectangleBox[{13.499999999999996`, 0.}, {14.499999999999996`, 
              1.}, "RoundingRadius" -> 0]},
            
            ImageSizeCache->{{278.00246503095605`, 
             298.41005503324914`}, {-177.24999999999997`, 
             136.25373822262046`}}],
           StatusArea[#, 1]& ,
           TagBoxNote->"1"],
          StyleBox["1", {
            GrayLevel[0]}, StripOnInput -> False]],
         Annotation[#, 
          Style[1, {
            GrayLevel[0]}], "Tooltip"]& ]}, 
       {RGBColor[0.9902857142857143, 1., 0.66], EdgeForm[Opacity[0.7]], 
        TagBox[
         TooltipBox[
          TagBox[
           DynamicBox[{
             FEPrivate`If[
              CurrentValue["MouseOver"], 
              EdgeForm[{
                GrayLevel[0.5], 
                AbsoluteThickness[1.5], 
                Opacity[0.66]}], {}, {}], 
             
             RectangleBox[{14.599999999999996`, 0.}, {15.599999999999996`, 
              0.}, "RoundingRadius" -> 0]},
            
            ImageSizeCache->{{298.80081403347845`, 319.2084040357715}, {
             134.75373822262046`, 136.25373822262046`}}],
           StatusArea[#, 0]& ,
           TagBoxNote->"0"],
          StyleBox["0", {
            GrayLevel[0]}, StripOnInput -> False]],
         Annotation[#, 
          Style[0, {
            GrayLevel[0]}], "Tooltip"]& ]}, 
       {RGBColor[1., 0.8348571428571429, 0.66], EdgeForm[Opacity[0.7]], 
        TagBox[
         TooltipBox[
          TagBox[
           DynamicBox[{
             FEPrivate`If[
              CurrentValue["MouseOver"], 
              EdgeForm[{
                GrayLevel[0.5], 
                AbsoluteThickness[1.5], 
                Opacity[0.66]}], {}, {}], 
             
             RectangleBox[{15.699999999999996`, 0.}, {16.699999999999996`, 
              0.}, "RoundingRadius" -> 0]},
            
            ImageSizeCache->{{319.5991630360008, 340.0067530382938}, {
             134.75373822262046`, 136.25373822262046`}}],
           StatusArea[#, 0]& ,
           TagBoxNote->"0"],
          StyleBox["0", {
            GrayLevel[0]}, StripOnInput -> False]],
         Annotation[#, 
          Style[0, {
            GrayLevel[0]}], "Tooltip"]& ]}, 
       {RGBColor[1., 0.66, 0.66], EdgeForm[Opacity[0.7]], 
        TagBox[
         TooltipBox[
          TagBox[
           DynamicBox[{
             FEPrivate`If[
              CurrentValue["MouseOver"], 
              EdgeForm[{
                GrayLevel[0.5], 
                AbsoluteThickness[1.5], 
                Opacity[0.66]}], {}, {}], 
             
             RectangleBox[{16.799999999999997`, 0.}, {17.799999999999997`, 
              0.}, "RoundingRadius" -> 0]},
            
            ImageSizeCache->{{340.39751203852313`, 360.8051020408162}, {
             134.75373822262046`, 136.25373822262046`}}],
           StatusArea[#, 0]& ,
           TagBoxNote->"0"],
          StyleBox["0", {
            GrayLevel[0]}, StripOnInput -> False]],
         Annotation[#, 
          Style[0, {
            GrayLevel[0]}], "Tooltip"]& ]}}, {}, {}}, {{}, {
       {RGBColor[0.66, 0.7960000000000002, 1.], EdgeForm[Opacity[0.7]], 
        TagBox[
         TooltipBox[
          TagBox[
           DynamicBox[{
             FEPrivate`If[
              CurrentValue["MouseOver"], 
              EdgeForm[{
                GrayLevel[0.5], 
                AbsoluteThickness[1.5], 
                Opacity[0.66]}], {}, {}], 
             
             RectangleBox[{17.999999999999996`, 0.}, {18.999999999999996`, 
              0.}, "RoundingRadius" -> 0]},
            
            ImageSizeCache->{{363.0866200412748, 383.4942100435679}, {
             134.75373822262046`, 136.25373822262046`}}],
           StatusArea[#, 0]& ,
           TagBoxNote->"0"],
          StyleBox["0", {
            GrayLevel[0]}, StripOnInput -> False]],
         Annotation[#, 
          Style[0, {
            GrayLevel[0]}], "Tooltip"]& ]}, 
       {RGBColor[0.66, 0.970857142857143, 1.], EdgeForm[Opacity[0.7]], 
        TagBox[
         TooltipBox[
          TagBox[
           DynamicBox[{
             FEPrivate`If[
              CurrentValue["MouseOver"], 
              EdgeForm[{
                GrayLevel[0.5], 
                AbsoluteThickness[1.5], 
                Opacity[0.66]}], {}, {}], 
             
             RectangleBox[{19.099999999999998`, 0.}, {20.099999999999998`, 
              0.}, "RoundingRadius" -> 0]},
            
            ImageSizeCache->{{383.8849690437972, 404.2925590460902}, {
             134.75373822262046`, 136.25373822262046`}}],
           StatusArea[#, 0]& ,
           TagBoxNote->"0"],
          StyleBox["0", {
            GrayLevel[0]}, StripOnInput -> False]],
         Annotation[#, 
          Style[0, {
            GrayLevel[0]}], "Tooltip"]& ]}, 
       {RGBColor[0.66, 1., 0.8542857142857142], EdgeForm[Opacity[0.7]], 
        TagBox[
         TooltipBox[
          TagBox[
           DynamicBox[{
             FEPrivate`If[
              CurrentValue["MouseOver"], 
              EdgeForm[{
                GrayLevel[0.5], 
                AbsoluteThickness[1.5], 
                Opacity[0.66]}], {}, {}], 
             RectangleBox[{20.2, 0.}, {21.2, 0.5}, "RoundingRadius" -> 0]},
            
            ImageSizeCache->{{404.6833180463196, 
             425.0909080486126}, {-21.248130888689758`, 136.25373822262046`}}],
           StatusArea[#, 0.5]& ,
           TagBoxNote->"0.5"],
          StyleBox["0.5`", {
            GrayLevel[0]}, StripOnInput -> False]],
         Annotation[#, 
          Style[0.5, {
            GrayLevel[0]}], "Tooltip"]& ]}, 
       {RGBColor[0.66, 1., 0.6794285714285714], EdgeForm[Opacity[0.7]], 
        TagBox[
         TooltipBox[
          TagBox[
           DynamicBox[{
             FEPrivate`If[
              CurrentValue["MouseOver"], 
              EdgeForm[{
                GrayLevel[0.5], 
                AbsoluteThickness[1.5], 
                Opacity[0.66]}], {}, {}], 
             RectangleBox[{21.3, 0.}, {22.3, 0.}, "RoundingRadius" -> 0]},
            
            ImageSizeCache->{{425.4816670488419, 445.889257051135}, {
             134.75373822262046`, 136.25373822262046`}}],
           StatusArea[#, 0]& ,
           TagBoxNote->"0"],
          StyleBox["0", {
            GrayLevel[0]}, StripOnInput -> False]],
         Annotation[#, 
          Style[0, {
            GrayLevel[0]}], "Tooltip"]& ]}, 
       {RGBColor[0.8154285714285715, 1., 0.66], EdgeForm[Opacity[0.7]], 
        TagBox[
         TooltipBox[
          TagBox[
           DynamicBox[{
             FEPrivate`If[
              CurrentValue["MouseOver"], 
              EdgeForm[{
                GrayLevel[0.5], 
                AbsoluteThickness[1.5], 
                Opacity[0.66]}], {}, {}], 
             
             RectangleBox[{22.400000000000002`, 0.}, {23.400000000000002`, 
              1.}, "RoundingRadius" -> 0]},
            
            ImageSizeCache->{{446.2800160513643, 
             466.68760605365736`}, {-177.24999999999997`, 
             136.25373822262046`}}],
           StatusArea[#, 1]& ,
           TagBoxNote->"1"],
          StyleBox["1", {
            GrayLevel[0]}, StripOnInput -> False]],
         Annotation[#, 
          Style[1, {
            GrayLevel[0]}], "Tooltip"]& ]}, 
       {RGBColor[0.9902857142857143, 1., 0.66], EdgeForm[Opacity[0.7]], 
        TagBox[
         TooltipBox[
          TagBox[
           DynamicBox[{
             FEPrivate`If[
              CurrentValue["MouseOver"], 
              EdgeForm[{
                GrayLevel[0.5], 
                AbsoluteThickness[1.5], 
                Opacity[0.66]}], {}, {}], 
             
             RectangleBox[{23.500000000000004`, 0.}, {24.500000000000004`, 
              0.}, "RoundingRadius" -> 0]},
            
            ImageSizeCache->{{467.0783650538867, 487.48595505617976`}, {
             134.75373822262046`, 136.25373822262046`}}],
           StatusArea[#, 0]& ,
           TagBoxNote->"0"],
          StyleBox["0", {
            GrayLevel[0]}, StripOnInput -> False]],
         Annotation[#, 
          Style[0, {
            GrayLevel[0]}], "Tooltip"]& ]}, 
       {RGBColor[1., 0.8348571428571429, 0.66], EdgeForm[Opacity[0.7]], 
        TagBox[
         TooltipBox[
          TagBox[
           DynamicBox[{
             FEPrivate`If[
              CurrentValue["MouseOver"], 
              EdgeForm[{
                GrayLevel[0.5], 
                AbsoluteThickness[1.5], 
                Opacity[0.66]}], {}, {}], 
             
             RectangleBox[{24.600000000000005`, 0.}, {25.600000000000005`, 
              0.}, "RoundingRadius" -> 0]},
            
            ImageSizeCache->{{487.87671405640907`, 508.2843040587021}, {
             134.75373822262046`, 136.25373822262046`}}],
           StatusArea[#, 0]& ,
           TagBoxNote->"0"],
          StyleBox["0", {
            GrayLevel[0]}, StripOnInput -> False]],
         Annotation[#, 
          Style[0, {
            GrayLevel[0]}], "Tooltip"]& ]}, 
       {RGBColor[1., 0.66, 0.66], EdgeForm[Opacity[0.7]], 
        TagBox[
         TooltipBox[
          TagBox[
           DynamicBox[{
             FEPrivate`If[
              CurrentValue["MouseOver"], 
              EdgeForm[{
                GrayLevel[0.5], 
                AbsoluteThickness[1.5], 
                Opacity[0.66]}], {}, {}], 
             
             RectangleBox[{25.700000000000006`, 0.}, {26.700000000000006`, 
              0.5}, "RoundingRadius" -> 0]},
            
            ImageSizeCache->{{508.67506305893147`, 
             529.0826530612245}, {-21.248130888689758`, 136.25373822262046`}}],
           StatusArea[#, 0.5]& ,
           TagBoxNote->"0.5"],
          StyleBox["0.5`", {
            GrayLevel[0]}, StripOnInput -> False]],
         Annotation[#, 
          Style[0.5, {
            GrayLevel[0]}], 
          "Tooltip"]& ]}}, {}, {}}}, {}, {}}, {}, {{{{{{{{}, {}}, {}}, {{{}, \
{}}, {}}, {{{}, {}}, {}}, {{{}, {}}, {}}, {{{}, {}}, {}}, {{{}, {}}, {}}, \
{{{}, {}}, {}}, {{{}, {}}, {}}}, {}}, {}}, {{{{{{}, {}}, {}}, {{{}, {}}, {}}, \
{{{}, {}}, {}}, {{{}, {}}, {}}, {{{}, {}}, {}}, {{{}, {}}, {}}, {{{}, {}}, \
{}}, {{{}, {}}, {}}}, {}}, {}}, {{{{{{}, {}}, {}}, {{{}, {}}, {}}, {{{}, {}}, \
{}}, {{{}, {}}, {}}, {{{}, {}}, {}}, {{{}, {}}, {}}, {{{}, {}}, {}}, {{{}, \
{}}, {}}}, {}}, {}}}, {}}, GraphicsGroupBox[
    {GrayLevel[0], 
     StyleBox[
      GraphicsGroupBox[{
        LineBox[{{{0.2, 0.}, Offset[{0, -6}, {0.2, 0.}]}, {{
           26.700000000000006`, 0.}, 
           Offset[{0, -6}, {26.700000000000006`, 0.}]}}], 
        LineBox[{{{0.2, 0.}, Offset[{0, -4}, {0.2, 0.}]}, {{8.899999999999999,
            0.}, Offset[{0, -4}, {8.899999999999999, 0.}]}}], InsetBox[
         PaneBox["\<\"c1\"\>"], Offset[{0, -14}, {4.549999999999999, 0.}], 
         ImageScaled[{Rational[1, 2], 1}]], InsetBox[
         PaneBox["1"], Offset[{0, -2}, {0.7, 0.}], 
         ImageScaled[{Rational[1, 2], 1}]], InsetBox[
         PaneBox["2"], Offset[{0, -2}, {1.7999999999999998`, 0.}], 
         ImageScaled[{Rational[1, 2], 1}]], InsetBox[
         PaneBox["3"], Offset[{0, -2}, {2.9, 0.}], 
         ImageScaled[{Rational[1, 2], 1}]], InsetBox[
         PaneBox["4"], Offset[{0, -2}, {4., 0.}], 
         ImageScaled[{Rational[1, 2], 1}]], InsetBox[
         PaneBox["5"], Offset[{0, -2}, {5.1, 0.}], 
         ImageScaled[{Rational[1, 2], 1}]], InsetBox[
         PaneBox["6"], Offset[{0, -2}, {6.199999999999999, 0.}], 
         ImageScaled[{Rational[1, 2], 1}]], InsetBox[
         PaneBox["7"], Offset[{0, -2}, {7.299999999999999, 0.}], 
         ImageScaled[{Rational[1, 2], 1}]], InsetBox[
         PaneBox["8"], Offset[{0, -2}, {8.399999999999999, 0.}], 
         ImageScaled[{Rational[1, 2], 1}]], 
        LineBox[{{{9.099999999999998, 0.}, 
           Offset[{0, -4}, {9.099999999999998, 0.}]}, {{17.799999999999997`, 
           0.}, Offset[{0, -4}, {17.799999999999997`, 0.}]}}], InsetBox[
         PaneBox["\<\"c2\"\>"], Offset[{0, -14}, {13.449999999999998`, 0.}], 
         ImageScaled[{Rational[1, 2], 1}]], InsetBox[
         PaneBox["1"], Offset[{0, -2}, {9.599999999999998, 0.}], 
         ImageScaled[{Rational[1, 2], 1}]], InsetBox[
         PaneBox["2"], Offset[{0, -2}, {10.699999999999998`, 0.}], 
         ImageScaled[{Rational[1, 2], 1}]], InsetBox[
         PaneBox["3"], Offset[{0, -2}, {11.799999999999997`, 0.}], 
         ImageScaled[{Rational[1, 2], 1}]], InsetBox[
         PaneBox["4"], Offset[{0, -2}, {12.899999999999997`, 0.}], 
         ImageScaled[{Rational[1, 2], 1}]], InsetBox[
         PaneBox["5"], Offset[{0, -2}, {13.999999999999996`, 0.}], 
         ImageScaled[{Rational[1, 2], 1}]], InsetBox[
         PaneBox["6"], Offset[{0, -2}, {15.099999999999996`, 0.}], 
         ImageScaled[{Rational[1, 2], 1}]], InsetBox[
         PaneBox["7"], Offset[{0, -2}, {16.199999999999996`, 0.}], 
         ImageScaled[{Rational[1, 2], 1}]], InsetBox[
         PaneBox["8"], Offset[{0, -2}, {17.299999999999997`, 0.}], 
         ImageScaled[{Rational[1, 2], 1}]], 
        LineBox[{{{17.999999999999996`, 0.}, 
           Offset[{0, -4}, {17.999999999999996`, 0.}]}, {{26.700000000000006`,
            0.}, Offset[{0, -4}, {26.700000000000006`, 0.}]}}], InsetBox[
         PaneBox["\<\"c3\"\>"], Offset[{0, -14}, {22.35, 0.}], 
         ImageScaled[{Rational[1, 2], 1}]], InsetBox[
         PaneBox["1"], Offset[{0, -2}, {18.499999999999996`, 0.}], 
         ImageScaled[{Rational[1, 2], 1}]], InsetBox[
         PaneBox["2"], Offset[{0, -2}, {19.599999999999998`, 0.}], 
         ImageScaled[{Rational[1, 2], 1}]], InsetBox[
         PaneBox["3"], Offset[{0, -2}, {20.7, 0.}], 
         ImageScaled[{Rational[1, 2], 1}]], InsetBox[
         PaneBox["4"], Offset[{0, -2}, {21.8, 0.}], 
         ImageScaled[{Rational[1, 2], 1}]], InsetBox[
         PaneBox["5"], Offset[{0, -2}, {22.900000000000002`, 0.}], 
         ImageScaled[{Rational[1, 2], 1}]], InsetBox[
         PaneBox["6"], Offset[{0, -2}, {24.000000000000004`, 0.}], 
         ImageScaled[{Rational[1, 2], 1}]], InsetBox[
         PaneBox["7"], Offset[{0, -2}, {25.100000000000005`, 0.}], 
         ImageScaled[{Rational[1, 2], 1}]], InsetBox[
         PaneBox["8"], Offset[{0, -2}, {26.200000000000006`, 0.}], 
         ImageScaled[{Rational[1, 2], 1}]]}],
      Antialiasing->False]}]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesOrigin->{0, 0},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  PlotRangePadding->Scaled[0.02],
  Ticks->{None, Automatic}]], "Output",
 CellChangeTimes->{{3.562517954563135*^9, 3.562517978566596*^9}, {
   3.562518085206758*^9, 3.562518116565403*^9}, 3.562518244283847*^9, 
   3.562518336711977*^9, 3.562518564110165*^9, {3.562518740161821*^9, 
   3.562518750510853*^9}, {3.5625210936868887`*^9, 3.562521100394329*^9}, {
   3.562521254162381*^9, 3.5625212741551857`*^9}, 3.562528673661977*^9, {
   3.56252910834408*^9, 3.562529122445056*^9}, 3.562537038073744*^9, 
   3.562539421258692*^9, {3.562542895917344*^9, 3.562542923123537*^9}, {
   3.562542982511878*^9, 3.5625430092204103`*^9}, 3.562547023558877*^9, 
   3.5625476136415987`*^9, 3.562549675042222*^9, 3.562696854932035*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"AbsoluteTiming", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"dist", "=", 
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"RandomVoters", "[", 
          RowBox[{"#", ",", "candidate", ",", "nPolices", ",", "b"}], "]"}], 
         "&"}], ",", 
        RowBox[{"hot2", "[", 
         RowBox[{"[", 
          RowBox[{";;", "10"}], "]"}], "]"}]}], "]"}]}], ";"}], 
    "\[IndentingNewLine]", "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}], "/", "60"}]], "Input",
 CellChangeTimes->{{3.562033138362103*^9, 3.562033175674378*^9}, 
   3.5620380456239557`*^9, 3.562041333594129*^9, {3.562042043588513*^9, 
   3.562042068295163*^9}, {3.562291025186509*^9, 3.562291048838666*^9}, {
   3.562291138275003*^9, 3.5622911403600683`*^9}, 3.562291397396348*^9, {
   3.5622940887070312`*^9, 3.5622941002522497`*^9}, 3.562294282961417*^9, {
   3.562521440332608*^9, 3.562521448825521*^9}, 3.562528329763036*^9, {
   3.56252932296392*^9, 3.562529350099607*^9}, {3.562536878239678*^9, 
   3.5625368985336657`*^9}, {3.562537076843927*^9, 3.5625370902817*^9}, {
   3.5625477297241755`*^9, 3.5625477328130546`*^9}}],

Cell[BoxData["0.00981764833333333333333333333333333333`7.221703715559938"], \
"Output",
 CellChangeTimes->{3.5625477337334785`*^9, 3.5625496830580235`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"dist", "=", 
   RowBox[{"<<", 
    RowBox[{"(", 
     RowBox[{"nd", "<>", "\"\<tests//p1_2.txt\>\""}], ")"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.562696859056053*^9, 3.562696891424038*^9}, {
  3.562799098796311*^9, 3.5627990997298813`*^9}, {3.562799379867043*^9, 
  3.562799380601542*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.562696016891143*^9, 3.562696017858368*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dist", "//", "Length"}]], "Input",
 CellChangeTimes->{{3.562800162995635*^9, 3.562800170161765*^9}}],

Cell[BoxData["8173"], "Output",
 CellChangeTimes->{{3.56280016516952*^9, 3.562800170446475*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Batch", "Subsubsection",
 CellChangeTimes->{{3.5626969368813887`*^9, 3.562696937582591*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"PolicyBasedElection", "[", 
   RowBox[{"runs_", ",", "testID_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "dist", ",", "chiStat", ",", "pValue", ",", "adjustedPValue", ",", 
      "electionResults", ",", "results"}], "}"}], ",", "\[IndentingNewLine]", 
    
    RowBox[{
     RowBox[{"results", "=", 
      RowBox[{"Table", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"Print", "[", 
          RowBox[{
           RowBox[{"ToString", "[", "i", "]"}], "<>", "\"\<: \>\""}], "]"}], 
         ";", "\[IndentingNewLine]", 
         RowBox[{"Print", "[", 
          RowBox[{"ToString", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"AbsoluteTiming", "[", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"dist", "=", 
                RowBox[{"Map", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"RandomVoters", "[", 
                    RowBox[{
                    "#", ",", "candidate", ",", "nPolices", ",", "b"}], "]"}],
                    "&"}], ",", "hot2"}], "]"}]}], ";"}], 
              "\[IndentingNewLine]", "]"}], "[", 
             RowBox[{"[", "1", "]"}], "]"}], "/", "60"}], "]"}], "]"}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"dist", ">>", 
          RowBox[{"(", 
           RowBox[{"nd", "<>", "\"\<tests//p\>\"", "<>", 
            RowBox[{"ToString", "[", "testID", "]"}], "<>", "\"\<_\>\"", "<>", 
            RowBox[{"ToString", "[", "i", "]"}], "<>", "\"\<.txt\>\""}], 
           ")"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{"chiStat", "=", 
          RowBox[{"Map", "[", 
           RowBox[{"X2B2", ",", 
            RowBox[{"Transpose", "[", "dist", "]"}]}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"pValue", "=", 
          RowBox[{"Map", "[", 
           RowBox[{"PValue", ",", "chiStat"}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"adjustedPValue", "=", 
          RowBox[{"AdjustedPValue", "[", "pValue", "]"}]}], ";", 
         "\[IndentingNewLine]", "\[IndentingNewLine]", 
         RowBox[{"electionResults", "=", 
          RowBox[{"ElectionResults", "[", "dist", "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"Transpose", "[", 
          RowBox[{"{", 
           RowBox[{
           "cand", ",", "chiStat", ",", "pValue", ",", "adjustedPValue", ",", 
            "electionResults"}], "}"}], "]"}]}], "\[IndentingNewLine]", ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "runs"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"results", ">>", 
      RowBox[{"(", 
       RowBox[{"nd", "<>", "\"\<tests//result_\>\"", "<>", 
        RowBox[{"ToString", "[", "testID", "]"}], "<>", "\"\<.txt\>\""}], 
       ")"}]}], ";", "\[IndentingNewLine]", "results"}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.562545907559669*^9, 3.562546139636984*^9}, {
  3.562546176905672*^9, 3.562546201148368*^9}, {3.56254629764583*^9, 
  3.562546298863882*^9}, {3.562546343929936*^9, 3.562546470869836*^9}, {
  3.5625470531638374`*^9, 3.5625470557480955`*^9}, {3.5625472149320126`*^9, 
  3.562547284268945*^9}, {3.5625495605629096`*^9, 3.562549561249327*^9}, {
  3.5625498113238487`*^9, 3.5625498122879453`*^9}, {3.5625499532800426`*^9, 
  3.5625501367972503`*^9}, {3.5625501780759087`*^9, 3.5625501795891476`*^9}, {
  3.5625502426623297`*^9, 3.5625502616362267`*^9}, {3.5625504481328745`*^9, 
  3.5625504543844995`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"res", "=", 
   RowBox[{"PolicyBasedElection", "[", 
    RowBox[{"50", ",", "1"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.562546231519973*^9, 3.562546238825038*^9}, {
  3.5625464146626883`*^9, 3.5625464153331623`*^9}, {3.5625464793186197`*^9, 
  3.562546482295169*^9}, {3.562546516850152*^9, 3.562546523217102*^9}, {
  3.562547241134632*^9, 3.56254724141366*^9}, {3.562549703855103*^9, 
  3.562549704173135*^9}, {3.5625498396046762`*^9, 3.5625498398226986`*^9}, {
  3.562549914337149*^9, 3.562549914712187*^9}, {3.562550112897437*^9, 
  3.5625501150970936`*^9}, {3.5625501923814754`*^9, 3.562550192662283*^9}, {
  3.5625502494190054`*^9, 3.56255024976904*^9}, {3.5625504578368444`*^9, 
  3.5625504581638775`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"res", "=", 
   RowBox[{"<<", 
    RowBox[{"(", 
     RowBox[{"nd", "<>", "\"\<tests//result_4.txt\>\""}], ")"}]}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"pval", "=", 
    RowBox[{"res", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", "All", ",", "4"}], "]"}], "]"}]}], ";"}], "\n", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"pval", "=", 
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Map", "[", 
         RowBox[{"PValue", ",", "#"}], "]"}], "&"}], ",", "pval"}], "]"}]}], 
    ";"}], "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"pvalBool", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Boole", "[", 
         RowBox[{"#", ">", "0.05"}], "]"}], "&"}], ",", 
       RowBox[{
        RowBox[{"Transpose", "[", "pval", "]"}], "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{
        RowBox[{"Dimensions", "[", "pval", "]"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{"Map", "[", 
  RowBox[{"Tally", ",", "pvalBool"}], "]"}]}], "Input",
 CellChangeTimes->{{3.5627885039435177`*^9, 3.56278852041369*^9}, {
  3.562798176777446*^9, 3.562798220904557*^9}, {3.562798831127139*^9, 
  3.562798889264442*^9}, {3.56279896139688*^9, 3.562798961503847*^9}, {
  3.562799885655813*^9, 3.562799893214581*^9}, {3.5627999276951923`*^9, 
  3.562799968527706*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "44"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "6"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{"1", ",", "50"}], "}"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{"1", ",", "50"}], "}"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.562695825427434*^9, 3.562788536612616*^9, 3.562797622871035*^9, {
   3.5627981940447283`*^9, 3.5627982235861692`*^9}, {3.562798822836069*^9, 
   3.562798889646945*^9}, 3.562798962324024*^9, 3.5627998937773123`*^9, {
   3.5627999285924997`*^9, 3.5627999691605597`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Calculating", " ", "average", " ", "false", " ", "discovery", " ", "from",
     " ", "adjusted", " ", "pvalue"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"m", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "42"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "8"}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "49"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"1", ",", "50"}], "}"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "42"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "8"}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "49"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"1", ",", "50"}], "}"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "45"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "5"}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "49"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"1", ",", "50"}], "}"}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "44"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "6"}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"1", ",", "50"}], "}"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"1", ",", "50"}], "}"}], "}"}]}], "}"}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"N", "[", 
    RowBox[{
     RowBox[{"Mean", "[", 
      RowBox[{
       RowBox[{"Cases", "[", 
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{"m", ",", "2"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "_"}], "}"}]}], "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "/", "50"}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.562799915628129*^9, 3.562799922574849*^9}, {
  3.562799956399564*^9, 3.5627999874535313`*^9}}],

Cell[BoxData["0.08571428571428572`"], "Output",
 CellChangeTimes->{3.562799989443781*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Calculating", " ", "average", " ", "false", " ", "discovery"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"m", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "49"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "47"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "3"}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "8"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "42"}], "}"}]}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "46"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "4"}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "49"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "44"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "6"}], "}"}]}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "46"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "4"}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "49"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "1"}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "45"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "5"}], "}"}]}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "48"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "2"}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "47"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "3"}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "41"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "9"}], "}"}]}], "}"}]}], "}"}]}], "}"}]}], 
    ";"}], "\[IndentingNewLine]", 
   RowBox[{"N", "[", 
    RowBox[{
     RowBox[{"Mean", "[", 
      RowBox[{
       RowBox[{"Cases", "[", 
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{"m", ",", "2"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "_"}], "}"}]}], "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}], "/", "50"}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.562798188364978*^9, 3.562798317757044*^9}, {
  3.562798838615972*^9, 3.562798904209302*^9}, {3.56279893683532*^9, 
  3.562798947002124*^9}}],

Cell[BoxData["0.07833333333333334`"], "Output",
 CellChangeTimes->{{3.5627982386672993`*^9, 3.5627983181337748`*^9}, 
   3.562798905811872*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Filtering Small Precincts", "Subsubsection",
 CellChangeTimes->{{3.5625407553599787`*^9, 3.562540756494258*^9}, {
  3.562543102015875*^9, 3.5625431077897253`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"filtering", "=", 
   RowBox[{"Table", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"bool", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Boole", "[", 
           RowBox[{"#", ">", "x"}], "]"}], "&"}], ",", "hot2"}], "]"}]}], ";",
       "\[IndentingNewLine]", 
      RowBox[{"distSub", "=", 
       RowBox[{"Pick", "[", 
        RowBox[{"dist", ",", "bool", ",", "1"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"chiStat", "=", 
       RowBox[{"Map", "[", 
        RowBox[{"X2B2", ",", 
         RowBox[{"Transpose", "[", "distSub", "]"}]}], "]"}]}], ";", "\n", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"AdjustedPValue", "[", 
         RowBox[{"Map", "[", 
          RowBox[{"PValue", ",", "chiStat"}], "]"}], "]"}]}], "}"}]}], 
     "\[IndentingNewLine]", ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "10", ",", "120", ",", "10"}], "}"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.562539492303514*^9, 3.56253956047946*^9}, 
   3.562539593431534*^9, {3.5625396256560583`*^9, 3.562539631052738*^9}, {
   3.56253966838015*^9, 3.562539741578143*^9}, {3.56253978055669*^9, 
   3.562539781777945*^9}, {3.5625400149603786`*^9, 3.56254001998415*^9}, {
   3.562540449531208*^9, 3.562540454393906*^9}, {3.562540499005207*^9, 
   3.562540524659987*^9}, {3.562540569158358*^9, 3.562540572959538*^9}, {
   3.56254066821602*^9, 3.5625406871756783`*^9}, {3.5625413299568367`*^9, 
   3.5625413444167833`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"th", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{"0.05", ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "42"}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"bar", "=", 
   RowBox[{"BarChart", "[", 
    RowBox[{
     RowBox[{"filtering", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", "2"}], "]"}], "]"}], ",", 
     RowBox[{"ChartLabels", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"filtering", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
        RowBox[{"Range", "[", "nCandidates", "]"}]}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"bar", ",", "th"}], "]"}]}], "Input",
 CellChangeTimes->{{3.562540165373192*^9, 3.562540284567377*^9}, {
  3.562540365977236*^9, 3.5625403803039713`*^9}, {3.562540679919518*^9, 
  3.562540680295876*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Not Filtering", "Subsubsection",
 CellChangeTimes->{{3.562540768991569*^9, 3.562540776598773*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"dist", "=", 
    RowBox[{"<<", 
     RowBox[{"(", 
      RowBox[{"nd", "<>", "\"\<tests//p2_40.txt\>\""}], ")"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"bool", "=", 
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Boole", "[", 
       RowBox[{"#", ">", "0"}], "]"}], "&"}], ",", "hot2"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"distSub", "=", 
   RowBox[{"Pick", "[", 
    RowBox[{"dist", ",", "bool", ",", "1"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"chiStat", "=", 
   RowBox[{"Map", "[", 
    RowBox[{"X2B2", ",", 
     RowBox[{"Transpose", "[", "distSub", "]"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"pValue", "=", 
   RowBox[{"Map", "[", 
    RowBox[{"PValue", ",", "chiStat"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"adjustedPValue", "=", 
   RowBox[{"AdjustedPValue", "[", "pValue", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"electionResults", "=", 
   RowBox[{"ElectionResults", "[", "distSub", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TableForm", "[", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
     "cand", ",", "chiStat", ",", "pValue", ",", "adjustedPValue", ",", 
      "electionResults"}], "}"}], "]"}], "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"ControlledFDR", "[", 
  RowBox[{
   RowBox[{"{", "pValue", "}"}], ",", "True"}], "]"}]}], "Input",
 CellChangeTimes->{{3.56254092410165*^9, 3.562540930020262*^9}, 
   3.5625409767358093`*^9, {3.562541033688939*^9, 3.56254103443167*^9}, {
   3.562547748709862*^9, 3.5625477527815666`*^9}, {3.562696985565577*^9, 
   3.562696986827115*^9}, 3.562799384949411*^9, {3.5627996076181593`*^9, 
   3.562799650992606*^9}}],

Cell[BoxData[
 TagBox[GridBox[{
    {"1", "3.0185766165286676`", "0.9635539144225286`", 
     "0.17362873145844848`", "0.33979814594860336`"},
    {"2", "16.459941127316984`", "0.05787624381948282`", 
     "0.9635539144225286`", "0.2554820349172462`"},
    {"3", "6.34872498263881`", "0.7045724531007598`", "0.9635539144225286`", 
     "0.40471981913415045`"}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.562522098235468*^9, 3.562528442653751*^9, 3.5625285056346416`*^9, 
   3.562528573499693*^9, 3.5625376868580933`*^9, {3.5625382874306927`*^9, 
   3.5625383141396008`*^9}, {3.562538365352062*^9, 3.562538410578434*^9}, 
   3.562538481375207*^9, 3.562540934148005*^9, 3.562541015476235*^9, 
   3.562541084056056*^9, {3.562541116947548*^9, 3.562541124315599*^9}, 
   3.562541160730812*^9, {3.562541213180291*^9, 3.562541221312561*^9}, 
   3.562541523961907*^9, 3.562543937738002*^9, 3.562544391830103*^9, 
   3.5625477543572073`*^9, 3.562549535383864*^9, 3.562696991175459*^9, 
   3.562799108166666*^9, 3.562799387175474*^9, {3.5627996130276423`*^9, 
   3.562799652350542*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"d = \"\>", "\[InvisibleSpace]", "0"}],
  SequenceForm["d = ", 0],
  Editable->False]], "Print",
 CellChangeTimes->{{3.5627996217946873`*^9, 3.562799652353285*^9}}],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"d\"\>", "\<\"PValue\"\>", "\<\"ID\"\>", "\<\"St\"\>", "\<\"Decision\
\"\>"},
    {"1", "0.05787624381948282`", "2", 
     "0.016666666666666666`", "\<\"Accepted\"\>"},
    {"2", "0.7045724531007598`", "3", 
     "0.03333333333333333`", "\<\"Accepted\"\>"},
    {"3", "0.9635539144225286`", "1", "0.05`", "\<\"Accepted\"\>"}
   },
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}, "RowsIndexed" -> {}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Print",
 CellChangeTimes->{{3.5627996217946873`*^9, 3.562799652355297*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellChangeTimes->{
  3.562522098235468*^9, 3.562528442653751*^9, 3.5625285056346416`*^9, 
   3.562528573499693*^9, 3.5625376868580933`*^9, {3.5625382874306927`*^9, 
   3.5625383141396008`*^9}, {3.562538365352062*^9, 3.562538410578434*^9}, 
   3.562538481375207*^9, 3.562540934148005*^9, 3.562541015476235*^9, 
   3.562541084056056*^9, {3.562541116947548*^9, 3.562541124315599*^9}, 
   3.562541160730812*^9, {3.562541213180291*^9, 3.562541221312561*^9}, 
   3.562541523961907*^9, 3.562543937738002*^9, 3.562544391830103*^9, 
   3.5625477543572073`*^9, 3.562549535383864*^9, 3.562696991175459*^9, 
   3.562799108166666*^9, 3.562799387175474*^9, {3.5627996130276423`*^9, 
   3.562799652357527*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"focus", "=", 
   RowBox[{"dist", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "1"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Stats", "[", "focus", "]"}], "\[IndentingNewLine]", 
 RowBox[{"DataLogPlot", "[", "focus", "]"}], "\[IndentingNewLine]", 
 RowBox[{"BLHistogram", "[", "focus", "]"}]}], "Input",
 CellChangeTimes->{{3.562291543195896*^9, 3.562291543347135*^9}, {
  3.562537696481997*^9, 3.56253769657592*^9}, {3.56254414109059*^9, 
  3.562544141256275*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Mean:207.361\"\>", ",", "\<\"Median:163.\"\>", 
   ",", "\<\"Min:0\"\>", ",", "\<\"Max:1089\"\>", 
   ",", "\<\"Skewness:1.25298\"\>"}], "}"}]], "Output",
 CellChangeTimes->{
  3.562528799523757*^9, 3.562537697013565*^9, 3.562541525383398*^9, {
   3.562544137503894*^9, 3.562544141739867*^9}, 3.562799820379697*^9}],

Cell[BoxData[
 GraphicsBox[
  {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
   EdgeForm[Opacity[0.7]], {}, 
   {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
    EdgeForm[Opacity[0.7]], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{0., 0.}, {0.1, 0.007391893556732783}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{29.75, 47.31372613561554}, {119.04180401063284`, 
         142.0775781810089}}],
       StatusArea[#, 0.007391893556732783]& ,
       TagBoxNote->"0.007391893556732783"],
      StyleBox["0.007391893556732783`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.007391893556732783, {
        GrayLevel[0]}], "Tooltip"]& ], {}, {}, 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{0.3, 0.}, {0.4, 0.004311937908094123}, 
          "RoundingRadius" -> 0]},
        ImageSizeCache->{{77.9411784068466, 95.50490454246214}, {
         128.01504324828954`, 142.0775781810089}}],
       StatusArea[#, 0.004311937908094123]& ,
       TagBoxNote->"0.004311937908094123"],
      StyleBox["0.004311937908094123`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.004311937908094123, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{0.4, 0.}, {0.5, 0.0033263521005297524`}, 
          "RoundingRadius" -> 0]},
        ImageSizeCache->{{94.00490454246214, 111.56863067807767`}, {
         130.88647980433967`, 142.0775781810089}}],
       StatusArea[#, 0.0033263521005297524`]& ,
       TagBoxNote->"0.0033263521005297524"],
      StyleBox["0.0033263521005297524`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.0033263521005297524`, {
        GrayLevel[0]}], "Tooltip"]& ], {}, 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{0.6, 0.}, {0.7, 0.006775902427005051}, 
          "RoundingRadius" -> 0]},
        ImageSizeCache->{{126.13235681369319`, 143.69608294930873`}, {
         120.83645185816418`, 142.0775781810089}}],
       StatusArea[#, 0.006775902427005051]& ,
       TagBoxNote->"0.006775902427005051"],
      StyleBox["0.006775902427005051`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.006775902427005051, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{0.7, 0.}, {0.8, 0.004065541456203031}, 
          "RoundingRadius" -> 0]},
        ImageSizeCache->{{142.19608294930873`, 159.75980908492429`}, {
         128.73290238730206`, 142.0775781810089}}],
       StatusArea[#, 0.004065541456203031]& ,
       TagBoxNote->"0.004065541456203031"],
      StyleBox["0.004065541456203031`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.004065541456203031, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{0.8, 0.}, {0.9, 0.0035727485524208453`}, 
          "RoundingRadius" -> 0]},
        ImageSizeCache->{{158.25980908492429`, 175.8235352205398}, {
         130.16862066532713`, 142.0775781810089}}],
       StatusArea[#, 0.0035727485524208453`]& ,
       TagBoxNote->"0.0035727485524208453"],
      StyleBox["0.0035727485524208453`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.0035727485524208453`, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{0.9, 0.}, {1., 0.005667118393495134}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{174.3235352205398, 191.88726135615534`}, {
         124.06681798372058`, 142.0775781810089}}],
       StatusArea[#, 0.005667118393495134]& ,
       TagBoxNote->"0.005667118393495134"],
      StyleBox["0.005667118393495134`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.005667118393495134, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{1., 0.}, {1.1, 0.010471849205371442`}, 
          "RoundingRadius" -> 0]},
        ImageSizeCache->{{190.38726135615534`, 207.9509874917709}, {
         110.06856477297615`, 142.0775781810089}}],
       StatusArea[#, 0.010471849205371442`]& ,
       TagBoxNote->"0.010471849205371442"],
      StyleBox["0.010471849205371442`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.010471849205371442`, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{1.1, 0.}, {1.2, 0.009363065171861525}, 
          "RoundingRadius" -> 0]},
        ImageSizeCache->{{206.4509874917709, 224.01471362738639`}, {
         113.29893089853256`, 142.0775781810089}}],
       StatusArea[#, 0.009363065171861525]& ,
       TagBoxNote->"0.009363065171861525"],
      StyleBox["0.009363065171861525`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.009363065171861525, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{1.2, 0.}, {1.3, 0.012689417272391278`}, 
          "RoundingRadius" -> 0]},
        ImageSizeCache->{{222.51471362738639`, 240.07843976300194`}, {
         103.60783252186333`, 142.0775781810089}}],
       StatusArea[#, 0.012689417272391278`]& ,
       TagBoxNote->"0.012689417272391278"],
      StyleBox["0.012689417272391278`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.012689417272391278`, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{1.3, 0.}, {1.4, 0.021682887766416165`}, 
          "RoundingRadius" -> 0]},
        ImageSizeCache->{{238.57843976300194`, 256.14216589861746`}, {
         77.40597394790578, 142.0775781810089}}],
       StatusArea[#, 0.021682887766416165`]& ,
       TagBoxNote->"0.021682887766416165"],
      StyleBox["0.021682887766416165`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.021682887766416165`, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{1.4, 0.}, {1.5, 0.018479733891831957`}, 
          "RoundingRadius" -> 0]},
        ImageSizeCache->{{254.64216589861746`, 272.205892034233}, {
         86.73814275506875, 142.0775781810089}}],
       StatusArea[#, 0.018479733891831957`]& ,
       TagBoxNote->"0.018479733891831957"],
      StyleBox["0.018479733891831957`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.018479733891831957`, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{1.5, 0.}, {1.6, 0.032154736971787605`}, 
          "RoundingRadius" -> 0]},
        ImageSizeCache->{{270.705892034233, 288.26961816984857`}, {
         46.896960539873035`, 142.0775781810089}}],
       StatusArea[#, 0.032154736971787605`]& ,
       TagBoxNote->"0.032154736971787605"],
      StyleBox["0.032154736971787605`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.032154736971787605`, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{1.6, 0.}, {1.7, 0.03966982875446594}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{286.76961816984857`, 304.33334430546404`}, {
         25.00225679999069, 142.0775781810089}}],
       StatusArea[#, 0.03966982875446594]& ,
       TagBoxNote->"0.03966982875446594"],
      StyleBox["0.03966982875446594`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.03966982875446594, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{1.7, 0.}, {1.8, 0.04533694714796107}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{302.83334430546404`, 320.3970704410796}, {
         8.49149660270237, 142.0775781810089}}],
       StatusArea[#, 0.04533694714796107]& ,
       TagBoxNote->"0.04533694714796107"],
      StyleBox["0.04533694714796107`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.04533694714796107, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{1.8, 0.}, {1.9, 0.052359246026857216`}, 
          "RoundingRadius" -> 0]},
        ImageSizeCache->{{318.8970704410796, 
         336.46079657669515`}, {-11.967488859154884`, 142.0775781810089}}],
       StatusArea[#, 0.052359246026857216`]& ,
       TagBoxNote->"0.052359246026857216"],
      StyleBox["0.052359246026857216`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.052359246026857216`, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{1.9, 0.}, {2., 0.05667118393495134}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{334.96079657669515`, 
         352.52452271231067`}, {-24.530023791874243`, 142.0775781810089}}],
       StatusArea[#, 0.05667118393495134]& ,
       TagBoxNote->"0.05667118393495134"],
      StyleBox["0.05667118393495134`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.05667118393495134, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{2., 0.}, {2.1, 0.07687569299002095}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{351.02452271231067`, 
         368.5882488479262}, {-83.39447319090218, 142.0775781810089}}],
       StatusArea[#, 0.07687569299002095]& ,
       TagBoxNote->"0.07687569299002095"],
      StyleBox["0.07687569299002095`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.07687569299002095, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{2.1, 0.}, {2.2, 0.07712208944191204}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{367.0882488479262, 
         384.6519749835418}, {-84.1123323299147, 142.0775781810089}}],
       StatusArea[#, 0.07712208944191204]& ,
       TagBoxNote->"0.07712208944191204"],
      StyleBox["0.07712208944191204`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.07712208944191204, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{2.2, 0.}, {2.3, 0.09018110139213996}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{383.1519749835418, 
         400.71570111915725`}, {-122.15886669757907`, 142.0775781810089}}],
       StatusArea[#, 0.09018110139213996]& ,
       TagBoxNote->"0.09018110139213996"],
      StyleBox["0.09018110139213996`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.09018110139213996, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{2.3, 0.}, {2.4, 0.09683380559319946}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{399.21570111915725`, 
         416.77942725477277`}, {-141.54106345091753`, 142.0775781810089}}],
       StatusArea[#, 0.09683380559319946]& ,
       TagBoxNote->"0.09683380559319946"],
      StyleBox["0.09683380559319946`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.09683380559319946, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{2.4, 0.}, {2.5, 0.09116668719970432}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{415.27942725477277`, 
         432.84315339038835`}, {-125.0303032536292, 142.0775781810089}}],
       StatusArea[#, 0.09116668719970432]& ,
       TagBoxNote->"0.09116668719970432"],
      StyleBox["0.09116668719970432`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.09116668719970432, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{2.5, 0.}, {2.6, 0.0900579031661944}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{431.34315339038835`, 
         448.9068795260039}, {-121.79993712807277`, 142.0775781810089}}],
       StatusArea[#, 0.0900579031661944]& ,
       TagBoxNote->"0.0900579031661944"],
      StyleBox["0.0900579031661944`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.0900579031661944, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{2.6, 0.}, {2.7, 0.0714549710484169}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{447.4068795260039, 
         464.97060566161946`}, {-67.60157213262636, 142.0775781810089}}],
       StatusArea[#, 0.0714549710484169]& ,
       TagBoxNote->"0.0714549710484169"],
      StyleBox["0.0714549710484169`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.0714549710484169, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{2.7, 0.}, {2.8, 0.04484415424417888}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{463.47060566161946`, 481.0343317972349}, {
         9.927214880727462, 142.0775781810089}}],
       StatusArea[#, 0.04484415424417888]& ,
       TagBoxNote->"0.04484415424417888"],
      StyleBox["0.04484415424417888`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.04484415424417888, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{2.8, 0.}, {2.9, 0.02008131082912406}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{479.5343317972349, 497.09805793285045`}, {
         82.07205835148727, 142.0775781810089}}],
       StatusArea[#, 0.02008131082912406]& ,
       TagBoxNote->"0.02008131082912406"],
      StyleBox["0.02008131082912406`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.02008131082912406, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{2.9, 0.}, {3., 0.00579031661944068}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{495.59805793285045`, 513.161784068466}, {
         123.70788841421432`, 142.0775781810089}}],
       StatusArea[#, 0.00579031661944068]& ,
       TagBoxNote->"0.00579031661944068"],
      StyleBox["0.00579031661944068`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.00579031661944068, {
        GrayLevel[0]}], "Tooltip"]& ], 
    TagBox[
     TooltipBox[
      TagBox[
       DynamicBox[{
         FEPrivate`If[
          CurrentValue["MouseOver"], 
          EdgeForm[{
            GrayLevel[0.5], 
            AbsoluteThickness[1.5], 
            Opacity[0.66]}], {}, {}], 
         RectangleBox[{3., 0.}, {3.1, 0.001601576937292103}, "RoundingRadius" -> 
          0]},
        ImageSizeCache->{{511.661784068466, 529.2255102040815}, {
         135.9114937774274, 142.0775781810089}}],
       StatusArea[#, 0.001601576937292103]& ,
       TagBoxNote->"0.001601576937292103"],
      StyleBox["0.001601576937292103`", {
        GrayLevel[0]}, StripOnInput -> False]],
     Annotation[#, 
      Style[0.001601576937292103, {
        GrayLevel[0]}], "Tooltip"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesOrigin->{0., 0},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  PlotRange->NCache[{{0, 
      Rational[31, 10]}, {All, All}}, {{0, 3.1}, {All, All}}],
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.1]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.562528799523757*^9, 3.562537697013565*^9, 3.562541525383398*^9, {
   3.562544137503894*^9, 3.562544141739867*^9}, 3.562799820792562*^9}],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{
      Opacity[0], 
      PointBox[{{0, 0}}]}, {
      RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
      EdgeForm[
       Opacity[0.7]], {}, {{{}, {{
          RGBColor[0, 1, 0], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{0.2, 0.}, {1.2, 0.11967926859688072`}, 
                "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{34.08022182786157, 
               57.23133096716947}, {-162.5008248156512, 
               143.07757818100893`}}], StatusArea[#, 0.11967926859688072`]& , 
             TagBoxNote -> "0.11967926859688072"], 
            StyleBox["0.11967926859688072`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.11967926859688072`, {
              GrayLevel[0]}], "Tooltip"]& ]}, {
          RGBColor[0, 0, 1], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{1.3, 0.}, {2.3, 0.12113055181695828`}, 
                "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{57.89644188110026, 
               81.04755102040815}, {-166.18821269018352`, 
               143.07757818100893`}}], StatusArea[#, 0.12113055181695828`]& , 
             TagBoxNote -> "0.12113055181695828"], 
            StyleBox["0.12113055181695828`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.12113055181695828`, {
              GrayLevel[0]}], "Tooltip"]& ]}}, {}, {}}, {{}, {{
          RGBColor[0, 1, 0], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{2.5, 0.}, {3.5, 0.11389010340755638`}, 
                "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{83.87777284826973, 
               107.02888198757762`}, {-147.7918436688573, 
               143.07757818100893`}}], StatusArea[#, 0.11389010340755638`]& , 
             TagBoxNote -> "0.11389010340755638"], 
            StyleBox["0.11389010340755638`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.11389010340755638`, {
              GrayLevel[0]}], "Tooltip"]& ]}, {
          RGBColor[0, 0, 1], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{3.6, 0.}, {4.6, 0.11550226355071577`}, 
                "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{107.69399290150841`, 
               130.8451020408163}, {-151.88798402344125`, 
               143.07757818100893`}}], StatusArea[#, 0.11550226355071577`]& , 
             TagBoxNote -> "0.11550226355071577"], 
            StyleBox["0.11550226355071577`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.11550226355071577`, {
              GrayLevel[0]}], "Tooltip"]& ]}}, {}, {}}, {{}, {{
          RGBColor[0, 1, 0], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{4.8, 0.}, {5.8, 0.10882149900550823`}, 
                "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{133.67532386867788`, 
               156.82643300798577`}, {-134.91364721874285`, 
               143.07757818100893`}}], StatusArea[#, 0.10882149900550823`]& , 
             TagBoxNote -> "0.10882149900550823"], 
            StyleBox["0.10882149900550823`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.10882149900550823`, {
              GrayLevel[0]}], "Tooltip"]& ]}, {
          RGBColor[0, 0, 1], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{5.8999999999999995`, 0.}, {6.8999999999999995`, 
                0.10962926709898446`}, "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{157.49154392191656`, 
               180.64265306122445`}, {-136.9660062842319, 
               143.07757818100893`}}], StatusArea[#, 0.10962926709898446`]& , 
             TagBoxNote -> "0.10962926709898446"], 
            StyleBox["0.10962926709898446`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.10962926709898446`, {
              GrayLevel[0]}], "Tooltip"]& ]}}, {}, {}}, {{}, {{
          RGBColor[0, 1, 0], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{7.1, 0.}, {8.1, 0.10432956023095939`}, 
                "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{183.47287488908606`, 
               206.62398402839395`}, {-123.50062986880906`, 
               143.07757818100893`}}], StatusArea[#, 0.10432956023095939`]& , 
             TagBoxNote -> "0.10432956023095939"], 
            StyleBox["0.10432956023095939`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.10432956023095939`, {
              GrayLevel[0]}], "Tooltip"]& ]}, {
          RGBColor[0, 0, 1], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{8.2, 0.}, {9.2, 0.10767160161507403`}, 
                "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{207.2890949423247, 
               230.44020408163263`}, {-131.99201370449546`, 
               143.07757818100893`}}], StatusArea[#, 0.10767160161507403`]& , 
             TagBoxNote -> "0.10767160161507403"], 
            StyleBox["0.10767160161507403`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.10767160161507403`, {
              GrayLevel[0]}], "Tooltip"]& ]}}, {}, {}}, {{}, {{
          RGBColor[0, 1, 0], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{9.399999999999999, 0.}, {10.399999999999999`, 
                0.10030820226757939`}, "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{233.27042590949418`, 
               256.42153504880207`}, {-113.2832536956532, 
               143.07757818100893`}}], StatusArea[#, 0.10030820226757939`]& , 
             TagBoxNote -> "0.10030820226757939"], 
            StyleBox["0.10030820226757939`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.10030820226757939`, {
              GrayLevel[0]}], "Tooltip"]& ]}, {
          RGBColor[0, 0, 1], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{10.499999999999998`, 0.}, {11.499999999999998`, 
                0.09763856601003304}, "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{257.08664596273286`, 
               280.23775510204075`}, {-106.50030173334622`, 
               143.07757818100893`}}], StatusArea[#, 0.09763856601003304]& , 
             TagBoxNote -> "0.09763856601003304"], 
            StyleBox["0.09763856601003304`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.09763856601003304, {
              GrayLevel[0]}], "Tooltip"]& ]}}, {}, {}}, {{}, {{
          RGBColor[0, 1, 0], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{11.699999999999998`, 0.}, {12.699999999999998`, 
                0.09667723580232242}, "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{283.06797692990233`, 
               306.2190860692102}, {-104.05777549016099`, 
               143.07757818100893`}}], StatusArea[#, 0.09667723580232242]& , 
             TagBoxNote -> "0.09667723580232242"], 
            StyleBox["0.09667723580232242`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.09667723580232242, {
              GrayLevel[0]}], "Tooltip"]& ]}, {
          RGBColor[0, 0, 1], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{12.799999999999997`, 0.}, {13.799999999999997`, 
                0.09433500550593417}, "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{306.884196983141, 
               330.0353061224489}, {-98.10668925504095, 
               143.07757818100893`}}], StatusArea[#, 0.09433500550593417]& , 
             TagBoxNote -> "0.09433500550593417"], 
            StyleBox["0.09433500550593417`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.09433500550593417, {
              GrayLevel[0]}], "Tooltip"]& ]}}, {}, {}}, {{}, {{
          RGBColor[0, 1, 0], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{13.999999999999996`, 0.}, {14.999999999999996`, 
                0.09337473578303612}, "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{332.8655279503105, 
               356.01663708961837`}, {-95.66685746789636, 
               143.07757818100893`}}], StatusArea[#, 0.09337473578303612]& , 
             TagBoxNote -> "0.09337473578303612"], 
            StyleBox["0.09337473578303612`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.09337473578303612, {
              GrayLevel[0]}], "Tooltip"]& ]}, {
          RGBColor[0, 0, 1], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{15.099999999999996`, 0.}, {16.099999999999994`, 
                0.09457971369142298}, "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{356.6817480035491, 
               379.832857142857}, {-98.72843832750803, 143.07757818100893`}}],
              StatusArea[#, 0.09457971369142298]& , TagBoxNote -> 
             "0.09457971369142298"], 
            StyleBox["0.09457971369142298`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.09457971369142298, {
              GrayLevel[0]}], "Tooltip"]& ]}}, {}, {}}, {{}, {{
          RGBColor[0, 1, 0], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{16.299999999999994`, 0.}, {17.299999999999994`, 
                0.0903519892696033}, "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{382.6630789707186, 
               405.81418811002646`}, {-87.98673088252775, 
               143.07757818100893`}}], StatusArea[#, 0.0903519892696033]& , 
             TagBoxNote -> "0.0903519892696033"], 
            StyleBox["0.0903519892696033`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.0903519892696033, {
              GrayLevel[0]}], "Tooltip"]& ]}, {
          RGBColor[0, 0, 1], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{17.399999999999995`, 0.}, {18.399999999999995`, 
                0.0904196745381133}, "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{406.47929902395725`, 
               429.63040816326514`}, {-88.15870409556805, 
               143.07757818100893`}}], StatusArea[#, 0.0904196745381133]& , 
             TagBoxNote -> "0.0904196745381133"], 
            StyleBox["0.0904196745381133`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.0904196745381133, {
              GrayLevel[0]}], "Tooltip"]& ]}}, {}, {}}, {{}, {{
          RGBColor[0, 1, 0], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               RectangleBox[{18.599999999999994`, 0.}, {19.599999999999994`, 
                0.08757005357886137}, "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{432.4606299911267, 
               455.6117391304346}, {-80.91845103759005, 
               143.07757818100893`}}], StatusArea[#, 0.08757005357886137]& , 
             TagBoxNote -> "0.08757005357886137"], 
            StyleBox["0.08757005357886137`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.08757005357886137, {
              GrayLevel[0]}], "Tooltip"]& ]}, {
          RGBColor[0, 0, 1], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{19.699999999999996`, 0.}, {20.699999999999996`, 
                0.08613728129205922}, "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{456.27685004436546`, 
               479.42795918367335`}, {-77.2780953273946, 
               143.07757818100893`}}], StatusArea[#, 0.08613728129205922]& , 
             TagBoxNote -> "0.08613728129205922"], 
            StyleBox["0.08613728129205922`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.08613728129205922, {
              GrayLevel[0]}], "Tooltip"]& ]}}, {}, {}}, {{}, {{
          RGBColor[0, 1, 0], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{20.899999999999995`, 0.}, {21.899999999999995`, 
                0.08499735205769224}, "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{482.2581810115349, 
               505.40929015084276`}, {-74.38178868064298, 
               143.07757818100893`}}], StatusArea[#, 0.08499735205769224]& , 
             TagBoxNote -> "0.08499735205769224"], 
            StyleBox["0.08499735205769224`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.08499735205769224, {
              GrayLevel[0]}], "Tooltip"]& ]}, {
          RGBColor[0, 0, 1], 
          EdgeForm[
           Opacity[0.7]], 
          TagBox[
           TooltipBox[
            TagBox[
             DynamicBox[{
               FEPrivate`If[
                CurrentValue["MouseOver"], 
                EdgeForm[{
                  GrayLevel[0.5], 
                  AbsoluteThickness[1.5], 
                  Opacity[0.66]}], {}, {}], 
               
               RectangleBox[{21.999999999999996`, 0.}, {22.999999999999996`, 
                0.08295607488070476}, "RoundingRadius" -> 0]}, 
              ImageSizeCache -> {{506.0744010647736, 
               529.2255102040815}, {-69.1953573853229, 143.07757818100893`}}],
              StatusArea[#, 0.08295607488070476]& , TagBoxNote -> 
             "0.08295607488070476"], 
            StyleBox["0.08295607488070476`", {
              GrayLevel[0]}, StripOnInput -> False]], Annotation[#, 
            Style[0.08295607488070476, {
              GrayLevel[0]}], 
            "Tooltip"]& ]}}, {}, {}}}, {}, {}}, {}, {{{{{{{{}, {}}, {}}, \
{{{}, {}}, {}}}, {}}, {}}, {{{{{{}, {}}, {}}, {{{}, {}}, {}}}, {}}, {}}, \
{{{{{{}, {}}, {}}, {{{}, {}}, {}}}, {}}, {}}, {{{{{{}, {}}, {}}, {{{}, {}}, \
{}}}, {}}, {}}, {{{{{{}, {}}, {}}, {{{}, {}}, {}}}, {}}, {}}, {{{{{{}, {}}, \
{}}, {{{}, {}}, {}}}, {}}, {}}, {{{{{{}, {}}, {}}, {{{}, {}}, {}}}, {}}, {}}, \
{{{{{{}, {}}, {}}, {{{}, {}}, {}}}, {}}, {}}, {{{{{{}, {}}, {}}, {{{}, {}}, \
{}}}, {}}, {}}, {{{{{{}, {}}, {}}, {{{}, {}}, {}}}, {}}, {}}}, {}}, 
     GraphicsGroupBox[{
       GrayLevel[0], 
       StyleBox[
        GraphicsGroupBox[{
          LineBox[{{{0.2, 0.}, 
             Offset[{0, -6}, {0.2, 0.}]}, {{22.999999999999996`, 0.}, 
             Offset[{0, -6}, {22.999999999999996`, 0.}]}}], 
          LineBox[{{{0.2, 0.}, 
             Offset[{0, -4}, {0.2, 0.}]}, {{2.3, 0.}, 
             Offset[{0, -4}, {2.3, 0.}]}}], 
          InsetBox[
           PaneBox["0"], 
           Offset[{0, -14}, {1.25, 0.}], 
           ImageScaled[{
             Rational[1, 2], 1}]], 
          LineBox[{{{2.5, 0.}, 
             Offset[{0, -4}, {2.5, 0.}]}, {{4.6, 0.}, 
             Offset[{0, -4}, {4.6, 0.}]}}], 
          InsetBox[
           PaneBox["1"], 
           Offset[{0, -14}, {3.55, 0.}], 
           ImageScaled[{
             Rational[1, 2], 1}]], 
          LineBox[{{{4.8, 0.}, 
             Offset[{0, -4}, {4.8, 0.}]}, {{6.8999999999999995`, 0.}, 
             Offset[{0, -4}, {6.8999999999999995`, 0.}]}}], 
          InsetBox[
           PaneBox["2"], 
           Offset[{0, -14}, {5.85, 0.}], 
           ImageScaled[{
             Rational[1, 2], 1}]], 
          LineBox[{{{7.1, 0.}, 
             Offset[{0, -4}, {7.1, 0.}]}, {{9.2, 0.}, 
             Offset[{0, -4}, {9.2, 0.}]}}], 
          InsetBox[
           PaneBox["3"], 
           Offset[{0, -14}, {8.149999999999999, 0.}], 
           ImageScaled[{
             Rational[1, 2], 1}]], 
          LineBox[{{{9.399999999999999, 0.}, 
             Offset[{0, -4}, {9.399999999999999, 0.}]}, {{11.499999999999998`,
              0.}, 
             Offset[{0, -4}, {11.499999999999998`, 0.}]}}], 
          InsetBox[
           PaneBox["4"], 
           Offset[{0, -14}, {10.45, 0.}], 
           ImageScaled[{
             Rational[1, 2], 1}]], 
          LineBox[{{{11.699999999999998`, 0.}, 
             Offset[{0, -4}, {11.699999999999998`, 0.}]}, {{
             13.799999999999997`, 0.}, 
             Offset[{0, -4}, {13.799999999999997`, 0.}]}}], 
          InsetBox[
           PaneBox["5"], 
           Offset[{0, -14}, {12.749999999999996`, 0.}], 
           ImageScaled[{
             Rational[1, 2], 1}]], 
          LineBox[{{{13.999999999999996`, 0.}, 
             Offset[{0, -4}, {13.999999999999996`, 0.}]}, {{
             16.099999999999994`, 0.}, 
             Offset[{0, -4}, {16.099999999999994`, 0.}]}}], 
          InsetBox[
           PaneBox["6"], 
           Offset[{0, -14}, {15.049999999999995`, 0.}], 
           ImageScaled[{
             Rational[1, 2], 1}]], 
          LineBox[{{{16.299999999999994`, 0.}, 
             Offset[{0, -4}, {16.299999999999994`, 0.}]}, {{
             18.399999999999995`, 0.}, 
             Offset[{0, -4}, {18.399999999999995`, 0.}]}}], 
          InsetBox[
           PaneBox["7"], 
           Offset[{0, -14}, {17.349999999999994`, 0.}], 
           ImageScaled[{
             Rational[1, 2], 1}]], 
          LineBox[{{{18.599999999999994`, 0.}, 
             Offset[{0, -4}, {18.599999999999994`, 0.}]}, {{
             20.699999999999996`, 0.}, 
             Offset[{0, -4}, {20.699999999999996`, 0.}]}}], 
          InsetBox[
           PaneBox["8"], 
           Offset[{0, -14}, {19.649999999999995`, 0.}], 
           ImageScaled[{
             Rational[1, 2], 1}]], 
          LineBox[{{{20.899999999999995`, 0.}, 
             Offset[{0, -4}, {20.899999999999995`, 0.}]}, {{
             22.999999999999996`, 0.}, 
             Offset[{0, -4}, {22.999999999999996`, 0.}]}}], 
          InsetBox[
           PaneBox["9"], 
           Offset[{0, -14}, {21.949999999999996`, 0.}], 
           ImageScaled[{
             Rational[1, 2], 1}]]}], Antialiasing -> False]}]}, AspectRatio -> 
    NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
    AxesOrigin -> {0, 0}, 
    FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, ImageSize -> 
    Medium, PlotLabel -> 
    FormBox["\"Second Digit Benford Expected Frequency\"", TraditionalForm], 
    PlotRangePadding -> Scaled[0.02], Ticks -> {None, Automatic}],FrameBox[
    StyleBox[
     TagBox[
      GridBox[{{
         TagBox[
          GridBox[{{
             GraphicsBox[{
               RGBColor[0, 1, 0], 
               EdgeForm[
                Opacity[0.7]], 
               RectangleBox[{0, 0}]}, ImageSize -> 10], "\"2BL\""}}, 
           AutoDelete -> False, 
           GridBoxItemSize -> {
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]}, {
        
         TagBox[
          GridBox[{{
             GraphicsBox[{
               RGBColor[0, 0, 1], 
               EdgeForm[
                Opacity[0.7]], 
               RectangleBox[{0, 0}]}, ImageSize -> 10], "\"Data\""}}, 
           AutoDelete -> False, 
           GridBoxItemSize -> {
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]}}, 
       GridBoxAlignment -> {"Columns" -> {{Left}}}, 
       GridBoxItemSize -> {
        "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], 
     "TR", StripOnInput -> False, ShowStringCharacters -> False], 
    StripOnInput -> False]},
  "Labeled",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, 
    GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
    BaselinePosition -> {1, 1}]& ),
  InterpretationFunction->(RowBox[{"Labeled", "[", 
     RowBox[{#, ",", #2, ",", "Right"}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.562528799523757*^9, 3.562537697013565*^9, 3.562541525383398*^9, {
   3.562544137503894*^9, 3.562544141739867*^9}, 3.562799821191658*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"PDF", "[", 
    RowBox[{
     RowBox[{"ExtremeValueDistribution", "[", 
      RowBox[{"EulerGamma", ",", 
       FractionBox[
        SuperscriptBox["Pi", "2"], "6"]}], "]"}], ",", "x"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "8"}], ",", "12"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.56241720789856*^9, 3.562417262089224*^9}, {
  3.562417404465438*^9, 3.562417406120487*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVV3c8ld8ft/e87rWyZxpCWXXv83lKVimyiyQZGVkVGUkoKST5oowkIaMi
pMg9ZsZNCIXI3lshFT+/f855vV/P57w/+3POI+3gZerEQEdHt7a9/H/faE0Z
3dqSRPdIVQULnxv20db2TL/9LYni3dmrPkR270uTqlrwWpFEfF5zjMuq4/tw
38GNH+OSqMklMveCPbPKbZI8P/okiTjZh99doOio8Nu+pISmSCKpkiNVva8q
VHZOoUQ6TUn0hWFWUVEmU9WKcdyA3lMCSfRhd9vD9fZzNsc6qr0XQ8vK4mcn
uQ5pKLy+13NUdgdycOo/aHzOXuv5bfWPpgkiqKgukL/BkPlg0ALFI25ECNUN
4+MXx10Plfs/dntlLIjyhBZKU2M8yDKOPs+/GQgi/oEL/BYD3uQYE4NB+iOC
KK52hrd5+jLZQWnVwvyAIAq900T3qjSIzNl36vBvYUF0Z2GEbf+ju2Q7jF1Y
Z5iEuuui/6RU5JAbdw2aevSRkJ1vVNrwh3yymtDbmP86SWi67cMU34HXZNZF
R8bJBhIK546RD+YvI39vJAQcfEdCY3ajzNkbH8ivn6L56HwS0tsp2JZlXEcW
jU1SKssiIaONWrO59I/kW4Gejj/SSGhHugTX98st5EVn3SdsSdt8P5njPw9/
Jp8xE+tVjSOhDBGuC/E3O8h1sEK0iSKhK9KM99v9u8jKe5qNI8JIiOg//zlo
5Bs5Wfjp3cIgEurxZNOW6v5OZmS+Vt99hYR2t39snC4aJHsunaSj8ySh+Lxs
xuZTI+Rv/fKHlFxIiJbD7/jJapx8pPnvVVN7Erq5ZBa21DFFLij78jroNAm5
VCqxnOqcIws+y5vJMiUhvsBhkbeaS+Sb928qtB7f1qdkw6jTv0KeDbI+v3aU
hNoXfzD5T6ySLS/uS5XCSCjrnpgk1XGDjMxZvhpqklChU6ZehNMmedfhfv7L
KiT05olOr2YIPSVhb4lRqhIJ/WHSOWsjyUTZErkXWS9DQob1//FpybBS3Fgc
auZ3kJB5nIFoYAIHpXNZ658QiYTYbxY4ZN3ioWA/eLUO85CQsaBQZnY4PyW3
ZdzXjZWEeApZzxQJEimE8g+FD+lI6FUYvcMhViHK9ayEycrfRJQ/9uE9h4Mo
ZTLOXXZ8mYgYlHwC4tUlKKbXj9jxzhKRC5uhNdFQmlLpKvJIa4yI3hyzdpGu
l6UoWC5+OT9AROSm1iTbRwqUuCMfee59JaI0YRXrqHYlyh/ldMOSNiJitTmb
OBu4l+K842pEfxMR3Vk/95vSoUJpYzWistQS0Qe1wINR+/ZTDv6U2dhXSUTM
L2Zfdg2oU7IGfx84XUpESh/ih9qntSg8n9q8wl4SUYsL1nPzHJkS8C4nLz+H
iKILHWb2y+OU0echY50ZRHSi71aP9dkjlJPxFlKbj4hoOEPmZengUUqgGq+h
/kMiYlQ/M1Kdp0/J7mj0iYsmIoknC+V5bccoHb5hj3tuEdGnT4EjTWdPUjYJ
5FqZG0S0qhh76eK+U5Rdb37NuF8jIuv3rV/WvM0olmaviKU+RJTofn/6xh8L
StjKRcqmGxE13ri32fPVmlL4UMZZ35GInHxb94zz2lK+7f8eG3eWiOwsuX1z
X56jMHX+97bHkog8WxUvHBg8T1G5YjwoY0JEpSKchu5KjhRbIju7hyER1V7K
m0x670y5U1KjWnqEiD5+VpLSSHWllJgHn9k8RERjocFBZV89KIM/1cP11Yno
fimrFu2QN4Xrv4X8OGUiEtaUeFqr40vRUn/R2aNIRF/wL9Pku1cojl0O/2Sk
icjiQNlXN0F/StxVMQUPUSKK+/Wm4thiAKWS1H2yVGA7vraU7HdS1ymTpff9
N7mIqPJ5W3u9dSiFaGmYoc9CRJcCnzzrsAyj4KsMTXFbAohnDeu9FxdBcU+s
XOpZF0ADn6NfP+GKpCRq+InKLgugGk/5Sd+OKEpN9z4djxkBtK+7X3f/dDRl
3m/KvXRUAMXqwdRV5TiKqNCzhM1+ATRsIx5xQjSeovfW9oP+VwEU6Xk2Wh5L
oPhaCY7HtQkgrj3JFMGMREr62mee3iYB9HZzNLBH7xGlOSlKU7ZWAE0T2Ap7
tVMpq5o69h6VAiitnyRscPMJRebb3zulpQKI6h00Snj4lHLyWlnR5ksBdPDI
uITqo2eUQGHvXv1cAdRLf8Pf79tzSna5EuODpwJofajbe8Iyl9JhPbK797EA
UrpX+1ZmRz5lcz3VXDZBAFlupr/z2vOSovTI8rpHjADydlfRcWl6TTHX5ssu
vS2ABEsYYiLyiymhPU2tmzcE0B1uF9KF6hJKQUD4mn6AAGpj4W89yfeW8k2E
IvXAVwB5aYvZCqW/ozC9XzXodRdAhopPd4n5VFJUzrz2kXUSQOOm6PbpOCrF
dsP1sYedACI8VrhUcbOacuexbG2plQBi457gdnetpZQc7J/ZNBFAEQ0kvY7w
espgbyLR4Ng2P4Xkudr1kcIVZEJ5oCOAQLHLzcKpmaK1g8O5lyyA1CROmi1q
fqI4VtTGymps++PmE7R7Vxslzub6W499Asjn+sSu3sF2SuUfjcHSnQJoV8wm
z3ztF8pkyiLblrQAunB+8UnB1y4KkZynarBDALFwyn+rkvpGwb9fOPOAuH3e
orlMO6uX4hEsHt7LLYBOynF657j0U5LFvubLsgqg8n8d+Xe0Bil1lXGdHnQC
KMrzg+GtkSHKou2xf6W/Caj8iH7H2fIRitg/RoWtZQKKY91wW3s/RtFP+3DS
YJaASjJZ22MXJiiLMd//Mo0TkHHcbKHpvmnK45A/edU/CKi03Ls7K3OWouMl
ejqkh4DSuUucxk8sUGbPabMe+kJASvsuyk+JLlESTaxL12gExCaqyFjzapkC
h/0vlDQQ0PWwbi+4+JMSL1NK3fuegOLvC58xNFmnkAU6L02/ISCGtq2k0Nsb
lDHGlR05hQSElSZuvZ/7S4n9yd98IYeANhd/M/2L2qJojalck3pKQLtQnPan
ffTYcJexQv9jAtrjE8if/o4Bu9fg2fkogYBqFwbYVxyZsIGcAhWBOwRkkhC+
uHM3G3YnuWXg800C4lJ4w89nxIGpRk1HRwcRUJ3LtNX9x1xYbwD7IcOrBKQm
9KDnsCgvFuG2c4rZi4BG9E6khk/wYco2+kk1Fwmo/gHaF2FHwL4ed9a94UBA
3HPFunY/BbBde7Oerltsx+umauj520JYp3itcakxAcm/P5AzECmCXecZ/udj
SECrZ77HjxTvwBS26AqUdQgo+tDvCykcEljbguSZGTIBXckvSVY3lMICBzG2
XA0Ces63srCRLY3Jtp8tc1TZtlerUTROShbzK04hDMgS0PucDp3nXgqY1LP3
6LE4AUkTlrprDHdiTQ97PK2ECMjRQd9l0WAX5huxLkbkJ6DfFfNKk157MLGr
Qi1tHAQk4u9jllCtjDU4aQTEMBFQcZIrISpDBfOytFA8tsmPrJ/NxPeuq2I1
mg/Da5f40ds7Z309Nw5gHjuLVUNn+FH287TRlBwNjCTS/oM8xo+enLWj17iq
hVWxL8b8HuBHIQeWB6KcDmIXN3jIZd/4UTpF8DZnEBkjzOyd9u3gRz/3KJ+y
Lsewij6j5H00fnSEHF4mFodjPB/u/sylbvN5HVMdpehg5YUvMp3e8aO83iyh
zfdHsfPpjSYyb/jRngIW8RkzPYzj/sTmQAE/OnHUsSiewwArucFSmJLNj14G
uOB/Bg0xO295G+sMfuToxkRn1HMcYz1/lJ30eFue0+5r668T2JkjYU6xMfxI
yFlm87npKYxp/1OB45H86NpwFOendFOsUBZVs97kR1tFJzQvMJhjlsQfXttP
T5RZ6q/7M8QCo2PeFL95hR8tsfopyglaYXm/xGgUT340EHnX4nWTNWY2fihw
w4UfOV25ru2TcgbL/hjQfdmGH7mT6kPDntphj9T8dF6Y86MahmT98Vv2WHSa
7+uBE/worO9wy0r7eewGm5c4UZ8fVeqr/QnRuID5Xna/a4jzI+OQP70apY6Y
04DLWog2P5r5tI7GjJ0xa0NHxxK1bX4nnilftosYRfIsJrn9JK8zPOBxrs8d
U7l7Ot9cgh8ZVtKz7924hMn8shC+K7RtX/N/Cd8lvTGSvektKh8/mnsxx3Lc
ygdjazm5/JOdHx0q9eOlZvlif9SPn9vFyI9Opn/ly2e/gs1n6NPO/eVDVU8e
1CdFXsU6/fDs5nk+xFO9pcvddQ37OEQWoJvkQ4c11YNlcgOx90baoepDfKii
L3XVLCUYK3yrPufWy4c0434/KnwdgmXIqJ3J+MKHQqVL5/ZcDcUexih/7KLx
ofPEk4Wnnt/Ebq/vOsDZwIfmSs/p/5kKw9xbZXn8yvnQ8Z++P3jLbmF22lJB
+UV86MpFFaajeCRmkiU2OZjHh66fNNB9MHoH0+EVsRDM4kPcFiPucVl3MY1A
Us3xND5EKDrKvXQzGlMa4993M5EP7d7rUBgYEouJmfCklt3nQ+oGf1dZTsZh
DAqsftJhfKiAc9B7z9N47Fcc44hlEB/SstRzLpx4iE3+2TKOvsKHBKo7qzeP
/If1Of+trL7Eh3btGXE9XZKItbavK60586EQtuuLLJRkrJr8K3GPPR8ydV21
dRh4hJXkLDE6nOZDlx+m//v2KAV7dH26n3acD0mWFKTudXqCRU+OH2PQ5UNH
E83K5SozsBCzkbeaGB8qjNnDsNX1FPOp+iF3SZMPrZw+jfjon2GOSt8fZKps
50Pc/68JloVZJXzb/KrEh7CLR7Da2OfYsa1Od27Zbf17ykWurWRjKl2fdK+R
+JBgYk+WyuYLTBZvLi7k4UMiXL8ZU7PzMcH8BskRVj5k8tomXfRiIbZGf2Ml
5Scv2mBa+Dme9hr7/tX/E8sELxIpHaFdzS3Cagq9c3x6eFGhxsCGf00xFnva
wUa/ihcdnA28Jr+zFLuyz0a9+DUvOsfGF/3gahl2htmcV/wZL9pLx2C60vUW
ky/SrV2O5EVHsr+GPvjyHuOIxNLOBvKiBpRDnvStxBZtNf0bPXjRh6qnR9yU
qrBKNqXd6ad4UUrdz1TrRYSl3ZjlXTzKi0iIm+Q9WI2FrL76eViLFy0Ii3xt
+F6D4aMaVWMSvKg3LH0++G8dJm2zkalJ4EU/3LsRn3QDxtDxITKKmReF0Afo
nDD/iNVRj57aO8uD+ndMxXtPNWHPNdg0bvzgQRLxQZ3IqAW7Xdgi2t7Bg453
eCjFVNMwgxTT0SvveND98daAquHPmBJBsKmhgAc1yA9UOja2YRxRPYXCGTxo
TdE6tvVFO0bzs/evvM2DpN7NpT2L+YIVzsna8gTyIKd/orZMDzqxWMcJ3P4S
D7INNikryejCTEw9OZjMedAxG/VN2YmvmGqT6oKF/rY9RmfjtiR6MAL+60vO
wW2+r0anHZ16sc69wWnHpXnQl1DzW5hUP1aaBWFpRB6kz5DZ+ve/ASxxB6PL
AisPUuawPejOM4hZs99VeTjPjfg/8lyxfj2EaYeeII0NcaNjpxIOJd4fxkTX
+DY0urhRcgN/1vdrI9j30aTa3gpuxBBzeFDWfQz7YGOTu+cVNzLgxvk2r4xj
6R0SMSGZ3Mi6qLv14d0JzB49t5SJ4kbrj5dWW3unsMOaroeuBHOjNY12tkuC
M5jMyz1SDV7cqMLLbH/5uVlsNOXNlKslN0pvydL3E1/A6gn+rRWG3GiL4/HZ
MMNFLDvq4BtuCjcS/2VEO8S1hF30rw4ukuVGSvPJjBV5y9is6Wfe34tc6EbB
o6wl81XsU1P8z2OjXOip0fc+3HoNe4lb9qR+5ULPw6vXVJ3XMW/l/ky8igvJ
b4YwRj7bwE49z4iML+JCzGQLpXdf/mBqYo4eo1lciDWbUq/E9w/7yT6jfuce
F0pLTv9769UW1hX6UrQ3hAvd3bAfLYiig7I1n63dvlxIk23ZMP0IPVwbW2/8
bM2Fkk/mcz1sZoA/iMVWSIELeV9z6uQ6yAL2T+6LvRDhQlqDFmPJCqxQd124
/yA3F9Jxez64toMNog/usrP7yYlq/lSVW8pwwKLwG4nFCU5E+Jj0YmE/J5iv
Hfpxs48TuU0EV8cYc4FYyQn75zWc6IaIWaBMNg+ExndLaZZxor5kbb7aIV4Y
9T431PiCE3EYqznbJfBBwV4fh9k4TtQlnLOPOMcP5JwEx/3nOJFsv5f9y2ki
ZNwSl6835URW7FH9IhUkYHLMHrPU40TVV5nmP8QLAk2q3DlwLyfawh61xlgL
g8oWrsglzYnEXw7/3a0vAgn9TRNpRE6Ucc319gRFFGwf912s/sOBisacX+Qd
FQN0zVHJbIEDGV+S+brPQhzkrOamRoc50OvPBgmfPCVgVmDLja2ZAxH2nBPY
d04KrsfIXDJO5kCWkZd6yDMyMOyev3foHgfyT26MfpUiC3rHDsz73uBAuvo2
Bq2n5ICHVc8r0ZkDCVAldr/6LA++Y637dp7hQNcfaErUJilAd63V4rsT2/q7
975VcFaE9FBXn/4DHKjT/Q3prqASMJxbVvXayYF6p8jlw+tK4EwJWqYT40D7
b59G5OFdoLwRfVmOkQO9tbTuf928B6ouv77q3s6OHiz8qF0PUgEZU22Nf3Xs
iEV18OEXTlW4rVKzGlvOjg59ueS/9kQVTs598S9+wo4oDG2kO11qMOC8FvD7
0vb3MKbVyWvqcEQ39OC98+xo/oegnLyyBmTLsv8Rs2BHZcpWhx5OaoDnoGgw
TmZHr/TLa8IvacHWaSwkkoMd+ex+k3u84hCs7gmr5PjHhmQozD/3FZFhdqt+
I2aBDbENrFC9X1Kg9/kJ/4RONhR40oZSTQUoW7L1fprOhsxULF94Sh+BwrqM
l3IP2BB/lUq9V+URyEoanc0JZ0N8zZYHR2x04AHFw/XlRTbkNRWuci/3KHhE
BTlUqLGhchqN3B+kDxdsqRmYPBti7fou4UExgDP7GH9UC7GhQr8PEUZMhqDf
ddem8S8rSu+0fBmQeQxkpB+bdzWwIt+wO42jsidB5Gd/vPU7VqQgksdhK2AM
fB+l2/vyWdHR/ieL95lMYNPjxYnhOFb0k9HoETvTKegpL9dbOMOKHBN+qpTu
NoO2e38jfE+wosuVT/8LqzKDBju89hewItXztiP0FuZQwtQIf+VYUdfCsqp9
jAXEmXzVYl9gQYp18yGFe60hUnaHf/QQC0q+3HFbdNAaQlbtSnk7WZCDEL7V
kXga3FPHVQXfsaCbRDK3P78N6E3+2iUbzoK435dV0Sh2QKnQds2+yoL2l/Yv
dhLPwYHY6zlKF1mQ3uxM0OfFcyB9gFlO5QQL+pzXd+l3nz38vUEUpwixIHeV
C6TXNQ6wYmptg9hZ0APFiYT9OhdgWj71kc5fZkSq91+KargA31pkBY8NMaOC
C+od/V2O8EZoP69VPjM6tiYy5CHsAtn3DltXpzOjuxIBF29lu0DylvHT3fHM
6N5F3SgnzYsQPOGxny6AGeWRj1zLOu8KR99mW73QY0au5ws1NHvcQWN3aYbA
QWZUKxlglB3iATuf1E5d38uM7tcpiCgrXgKuyMEgUyIzovhWmxTd9IROS9GM
P0NMiK7nvW/XS29oaN455dTFhAb5rjKH8fhAOaap1tbIhPZ8vL086uUDqQrm
dVmvmBALx2PVEU1fcFyNmTxxnQmdrolyseq/DD//o1fNEGZC0trK+3rC/GGc
nS+Qg4sJPVX5SvWhuwbfrkvUXtliRFzMGgeFQq9BpdMhC8NxRqQwmlmVfisA
ItSvBiy/YUQhlxgLtfKCgNQ1WX3UmBFNHElz3LMvFNgM1zheHWFE40e4RbNv
hMJGJbO5iAYj6qrYG3uqPRQGsmTG58S2+WQPnTS4dhOyr9hyJE0zoGN+pB+b
nWGgQWwznbrFgIqr9T58abkFFcGPRHSvMaCvYTwMO7VvAz7mMJjhxoC4fCrn
BXJvg2HZr0vWxgxISmiXMPVuJNha74j6KMyAOh3VY95eiILwVGfq83x6ZBDC
mVPlHANszCq36dPpUbnJW9HF+RiIvvR7++anRxlKrswT12IhEYvuJV6lR2/0
Oq/ui78PeYNFv8IxetS1pbGqORcHbXL/dju00yFOm/2fe84/BIuYhuUPtXRo
AO6s5Jc8hN5f99+JlNGhDYgt8GVLgJEGGf32x3RIk640YKg4AVYvGjjgjnQo
ED9rZCuQCNpnFFUp81vUsu8ZfZcYH0GHmzlHmfYm9d3PkyN5z57AMIev8ZzE
JlXgux83iSMDlvPuJ8gxbVJRcFpk+5EM4J9plnjY+o8qhL1eQKUZYOJ+eL/3
hX9UGeMTyf5Pn0Kru7Ltrpi/1Bu7J8QV455Bswfby/TBDeq5mK+LLY050Mul
sNJVv0Hl7f4XqseXC9MFOlrc+RvUH0MKXw9Y5wL7XEhN0NUNaqja7nS3qVww
uPSr25pjg3r/sI/aLv48aLg0vEU48JvqT99xwvVqAVR7Vp6KjFyjHiOkZrTW
v4ZGE6+CaM81asXXBh6Yew2tajKs8RZr1L0Zdv+6iUXQuxpZmSq7Rn2xtbM8
yLEIlkPMFIupq9TmfPvJaOZikLs//ff72i/q3Du6VI+Tb+DOK+FctYs/qcuh
nSP9a6VgvHhls99giWqRd68nL7oCAivSzBv2LlFnP61P0VVVQPbthryXhCXq
abtb8XYLFbApJmx14/sitV34Ytle00ooNKx4JeW9SJVbnLnLIvwBSHqMNQ3K
C9TiRNnjf59VQXS+WGR7ywx1d6hC0HgfgkA/Y/4J5jHqpGntmeAvtVAV1zJp
9mWUGmyseadqshYY8/URyhilzmXbPVj8VwvRP8Dr8aFRquTMHYrszjpIM1D5
dMJnhHrZxka3MqgOkCh/VMn3Iar+r4SOO5L1wBXynJ7JpZ+6KaRMYLRugP+K
01730/dT3wuUdbS5NYDExH/n3qZ+p+5tYoyNvN4A+0xuf3Dr6KOKxO849Cqz
AUxlXALaKb1U0p6qa8MzDZDcsHMpnfiVel9gPrk44CPI8xYMate0UVPMiBoT
Nxvh6GTQ9SfmbVRhAdrN9vhGqA9LOsDR+pn6SIdFOeVZI+AT3TkZQq3UrDfe
grS6RtB4bRH7Ka+ZOtSoaZXB3AQyR8xsFNtrqS0MnqmroU1g/3M5YflXDbUp
x9X/4/0mSMuOb/0gWkPN5TtRfzW9CYQ5Ow6bOyLqL8Vea7eKJhDPfWrCsPCO
+juLbfj1ShPMJml3ufvnUudC9P89PdsMw/blFckcz6nyEikquFszfFPSzKxP
e0r1n6XPfe/XDFH+rgPYnf+om2OuKkfvN4Mw480ylwB/UFFV8citaobibz01
9RYv4b5OxVKhYAsMRO71NBp6DRIfuUY4pVvAQXZ+ozSpGN5mj6Tq7m4BjzNe
xCimMqCeNXcwghYIbfTR3zdQCTp19NI5Ti1gblrR/cGgHv785OiNz2+BMcX6
wZ+SDXApRQS786YF/P61Tu9ea4AXd9/8OFPRAo9yhzcfPW+E8aHA9aTmbf2b
7Ip+DDRQKF9z8Z1oAa9OAdXCHhr8OmuQajrfAnR54odGX38CTR87C75fLSBr
oWpseu4zZLX/DZPbPldiUXBIyK4dMGxRpkiUBsF4ESpuaocjLkNtIVI00N1d
pntSvQOOdh9226VAg246ZHyL6wtcz7yWskOVBr/zv1xYed8Jy+t1pS66NKhJ
/DYZq9AFLf50gQrHaHD3Zv+lXfFd8PyjW2HtSRqIWU34n3fthue5TfmPrGiA
Mfy591noGxiS/WTLXGjAMrfF5x7+DTgUNwLd3Gnw+StTIsvCNzA7KDH4z5MG
9oU8GZSGHpj6Ma5Uc5UGSskC8j2qvdAp33xw5RoNlsOE866k9UJaQmMRYzAN
wq1lSvKv9EH0swTl2ps0MNJR1NYf7IMz7eEXfCNoQFTeUzV8/DssDrTa0kfS
IJtRo1FEth+0zkRuVt2jgef8wROlsf2QNt3xbS6GBpo90GGy0Q+hcKDv730a
NL40/B7ZPgAm9feoFQ9pEPfo5HlZyg/IzFrtcv+PBqcjzMarcn+Aj6Hd9b+J
NHigWaC+l2MQarJq2i4lb+epQHl9AwZB8D/vGeojGpyRKXrfeHUQBCroppYf
06Aqaf/1xPxBEDa2HGNJpYEMdxk4Dg1C3Fra3z/b+HaYFoOa0BBoZRgd70ij
wfTa+7otoyEwMpWYj0qngfElSuSnsCFI4yYxyD7Zzvcw1TClfAgyMv2z0rax
sPURLtf5IYiMaVv+vY2DP9W1asgNw6mOWQ6tDBoMHtF/wHRmGH729HJYb+Oj
5U1mHfeHIdZkiu/MNn6x10gwo34Y2pmyD2HbWEoyq7B9bRiOb1peYd/GyXx/
jzLuGgFJk/XR99v8vAzm3w/YjkCt2GS26Ta+vZJ/2Tl2BKoFir60bdu7OcrI
mYxG4OML9lvq2/hqt01m0/IIRJ360hm67d/sxzfaf+RGIbhUpL9423/Hd5zt
e6xGwWKZv7wlhQZ9eRcu2kWNQlqHSGjLdvxMUyu27leMwjeOt8bF2/FtjhFI
qp4bhT6/xMOh2/E/fMNdeUVyDLqt7nmrJ9Gg3Lu2Xs50DC48jF1r386fisOO
s5YRY+C/8mHJIoEGErot995NjgFZl1ZAfECDRA1Z2RnRcYiOSc4y3q4H7p1B
78VOjIOqstt13+16+cuxe+pG0TgU+Lod9o6iweW/YaFFI+OwxRLneHy73qbn
eoVGSBOgcSHnG88tGvS03dXTC5yAF/UzcsahNDCpGe73L5iAHGDQoF3frrc3
B6++GJiAma0+drUgGpQlTj/j0pmE67d+eJRv90OC7TH6L5xTsGOJ9fgbVxpw
ncxMZsKmwJNmnhrgvN0PsLFPw3sKTJMYHyldoIGvTJ7do85t+cYEDn3b7XqZ
ZK88lzYNU/pe3EEnaNDQc97swedp6LwruP7AcLtfW95N19DPQMe/I8EPt/t9
z0tXEQXnGVjjTm6ypNCA40qT36zyLLDiSQ1Du2kQ5iTNI3F+FpqZTVtMFLfn
hWXAc+OHs2CWs2CTL0ODSW2lzuK1WfhltPVYVoQG9Vt3VAPQHPRFMUzLMtMg
9J7BLLPpAuyqay4N6WmBgrySaJ87C8D6lZus+aUFepqk9vZXLUDJhv2/HloL
iET81eglLcJBf5XPA9QW8K3p9C8KW4QQ8hD9dNb2/INbv8/ZLkFrmK+WknsL
3NYa/1vJuwKPdaob7KaaQcxA7NPyrhUwhRxC/uD2vLcyTduptwKvhJLCxr82
ww+/KkpC8Ar0Kv2+uLuhGbRKE0Pcp1bg3JO3EUtPm2FKVZ9OtPYn7OhSOh9n
2QxGu3MZ/f1WgU2c+5pk6fZ9tG5QNXB/FQwijmcY5TdBdMPUNb0XqzDk9lnO
62kTtJzfPU/6vgpmqsllCTFNcCz55beSw2vQF/NG1smpCfSZSwuXudahZ58e
xwGBJjjyo9rK89lvMGAMEDe62AjaD/vyndr+QqDaEVaJzQb4nFqotf8WPS7o
5Wp+ircOTh1/vadzjAknNVWE/RpFwFTB4VnMxYZfPJdRl2dYCawsubiqPyeO
P+Ty9P9XBrreM9Lv2nlw88B21R9RxbD8/bkGeYAHtxx8IFAQWAwZhvbHqdM8
uBV/kWK4ezH8lem6Us/Iixc+Yew3PlEMxV1VH9vVefGNXtr+C/zFIHUo/tL0
I1687Y7+Aa+UItgMS/3OrcqHpzB8nmV9+xp6T+jshN98+NliH6AXegmT7LUr
rHT8+E6rpRbbP4Xwq/4ItY2FH4cSX4vWH4XAhx2xdCDy464fs9VXcgtBT/lw
xK19/DgHVzajDrkQinlgsMWJH393OD1wybkA7n4+mGzdwY9f70kjUGh5oH1K
jc03n4ArXEwb5evMgcZKo5Mfiwi4z9fvJgRqDljvdEkQKyfgaq7H3eXycuDa
VorUxzoC/t/+ovDA0BwoL2TWFhsg4DMeyqpze3NAk6PHtYFPAO9VC10YuZcN
6rU3WkT9BPA3z3ZZdpg9B1X1T7G1OBGnEBXrYvifAd0c08S6HhFPtCnsrKV7
Bq1ZZFA+QcTt+NkTWBczwY1YsJB8moi76i1uvG3NhKyVuyaevkQ8OrbcvSI6
EwSLDQgiWUQ8eKRn6ShnJvxVrvvPk5WEfzoV90mW8BQ+7qxIFWkl4QzXE0r0
7qaDkTNJo7uThO9C9n8LPNKh7ZnX5/g+Em7Tq2WqbJwOvRJyDFxTJFxw+U7H
TWI6zBNjXDYZBXFVTLvdNSMNBOnPqY1oC+InBY2P7v6QCs49DI0FzwXxV/V3
2YfZU4D57rEVuC6Ey58UCSueSQIuf2CNChfCPzftOkLrSgKi44EdHVFCeMzq
a9Xf1CSQwSR0HBOF8JcsIQ7RCUmALy/F33klhHd+LXdMxJIg8MwjtfYhIXzH
vcCu3YmJsLhr0sdBTxhvIz2+9cv0P+hrubUYwSuC/1x6wj+9FQ/JWJquhaAI
/juAm35sNh4si0oey4uL4FL/rK2Xe+KhI3HkaMMuEVwg7uFfnZJ4aD5/+BGr
ngjuPBdkUu0aD+/X/h6+GyyCz2ek/yR9ewCPZa88vD8lgh8UViKWV8fB6SAH
jce1org4W1ub6L0YeJxGZFlrEsVVuA7/1veKgV5qQ5dZmyhexTqQH2sWA2eY
dl/l7hfF9+YyW10UiwHbmJU3oaui+C7ZJNtjr6LB7kmEqovSDpzeNFWorOce
ONZm7zlwfwfO7zJ4OAm/C96cMzKtZ8TwWhPxLC7TSFgIeM/EeV4MV2+dRc7k
SPCcjBrXdxHDW+W+xXUqRIJ7/c686stieNqwNfPMn9vgfMNZtTRaDHe4anGB
Puc2nF0ZgtQqMdzmv++q9XS34VjfN1s3GXEcl22tU6+JgCbDXCxnpzh+27dg
c+xlBBiU+0uNKovjH4cSf+SkRIDuf4KjZw+J45FLntb2VyMANzZ3P2Uujpdq
0ftlKkWARu3nAK3b4viwqCyb3X/hIJvfkMgyLY53mN7ROxYQBtZPyt81L4rj
bCtP4tKcwyD2Yd732DVxPGpmzZvRPAzWg2JlhJglcAn7vgKWfWHQamT5UlFK
Al/a4JWaGrsJgfNj9QaWErhrvHAaj9VNaFdl/nW3RgIvet1z0VEvFFgU1oSM
myTwBsOHG5PqoUAWnToo0CaB31ptYAyRD4Vshk+hKf0S+PyjUnIPUygEf0ng
KliXwB31REWe37kBO6/KyX1SlsRLhO+N3ooOgRvlOma8KZJ42CcLa/v8YNCw
bVs891QSP0Xh3XkoLhjmt2xjX+dI4g8ccs7uuxoMdvp+TadKJPFg7da0CxAM
WHcuJHySxN3GP82tdwbB5m+WRC46KZy89+hsDVMQfBDyCHugJoVfV0yy1fYL
gGRXtfZ36lK4dLJuIMkuAK5UrEsOa0nhdIlvKWx6AbDn3K0PaiCFG6a3OagK
BkBqdvr6l+NS+NBnzdH7b69BsHq7p6CTFH7G/tuS+6Y/HDTTsElJksKjL8zp
klL9YGki5hhrihSed0TYszPCD3KDx7Qvp0vh9Mk/9PMv+YFQdoLw8edS+APu
9KIn4Ac/15e7NoqlcIF5PVrG6FV4mf7K5Ezrtr05u/sW1K6C9PROPRFmaXwf
LbxedvAyfAsJVb/FJo07jNycKWi5DHEC3+SWOKXxFPuGtWNvL8MmOZKxiSCN
S2oe9qqPvQy998fQNSlp/Izu0YdF2GVIUM889O2QNO5107/CPNMX2G7uUE3y
lcbfnNJePnjNBwYqbiqtXJXGQybGY2KcfaB0dULaOEAaL6tTn10y9wEHjxIC
a6g0Lo355C2o+kCl1YmffjHS+MJrGd0Ps97gpXzjrWWuNO4eIjP5wMkbuvuG
KYID0jhvQ2a11UdPKBA01PAdksb5FlY2dud6QvipV8qto9K4VojeQ8koT1D5
GCR5e0Yavx9k5+h43BPuFhPpV9el8bzjKwrn2y8BFqVX1yUggyea/QznGvGA
5xp5x/4zlMF1bywctRFzB3LT2dC3RjL4hA7+sZzBHTpt+Mt6jGXw6tFCR+Up
N2C6eU1awlIG14s/lnS+zA0cWvTWsx1k8A/rYx5jp9xAyn7keXmQDE5tc8k2
jnGFx1Fi9N8LZfCWW9+RMOkiqIm1aWy+lsG5Gd6+M950gaaX4R5SJTJ4b+sd
hdQJF1j/Mv3V8b0M/slInuvqexewknj3cq5BBl//Vt0nd94FiG8sbLd+yODa
J9Lc3YudIfZ77FsZgiwun/9rhMfRCeiLv8TcIcniVwJ/tYuedIIrkcKO88Ky
uOiTeWWKlhOcUcvkey8pi3+S3uyt43IChTulrqf2yuKj7V8j+ssc4cP+7ztC
DWTxiuHcYileR5i9qxTaHyKLvw4ZvWX12QHO2Xta6oRt6+s+tspS6QAd6m/2
vLgli6dtFu9sznWA8kFyz5VoWXzHtEP4vTAHiNAwUeN6vM1vmjiypuEAYsN+
owdLZfHv+1/ucn52Ho5r1xkkz8jiM2vnMgXu2kOos6Vt3fy2/IH3ZI1Aeyh5
OOm1uCSLv0wfoL/oZg9i81xJBuuyOM+/1Y71Y/Ywm2kxts4kh4tXX6Jr5bKH
WK6Jm6cl5HBe85SLVxTOQdsP9grRU3K4gIkN4YrFWTC/bbw3rUwOf6A0wk7P
eAZyTy8avnsnhyvjhUG3p0/Dnz0PnLsq5fA+reMTMh2nIfNLxxPuWjk876u+
ZcbT07AgZUkI+SyHn/5wDfIPn4a7FbZrdpNyeM0z78H5W9aAFl2rpUTl8ao3
xy3SJayAWMcxQBaXx+cfvp7oZbMCl6T8DWspedx/NmJ694ol8GBz+x8oyOMh
UtK/OBotweaedzb9fnm8LeA2Z4WvJazK+98bPi6Pr7XtGeposYA9NhEWWdfl
8YNXTdvOR5uDjU8ZgemmPK55lL/d0d8c7kZOfr4QIY+r1d7RuO5gDhNvjI7J
3pPHGSm93+a0zCGTiwSZyfK4UrCFFG3cDISqnu/MeCOPF1kX73bTMwMG6Y9/
Uqbk8QXbZxypRFNQ1fxd/mdWHk+5J75blsEU7E/s9rNZlMe7TRRlPiycgg8B
9xdF1+TxF5vu+kotp+Bah9XYIyYFXPH2DZvBsFMwFz7ZmiSpgCesGp9898sE
vo2zZz60UMC3kk9nKLcbQ6N5VOo7awWc1fN4bXexMZTXsCX9sFHA9b38mlMS
jCE5nTV6t4MC3nRuWCjY2hisLJn9aj0VcOuctNL4oZPQXU93bCVSAQ8j3o+g
+30COrPWlkzfK+D2f5hbFMlGUEfwn732QQFvC1Eha0sbQUno6ng6UsB5mt3N
HVmMtv/HfvVNNyjgEcQyYdb242BGXKkP+6KAP/7OYhTschw6wucfFc8q4ErN
duF8j45Bm8PYYYKkIj4trjpP4TGEEaac9f9kFPF4zl1xcSsGsJp98ZWIgiLu
ZOwYt/XNAHbMzIhJ71XEXWrO7VfLMgDny8tr+w4p4le7i9D4IQP4E75VeMJK
EUcCew0ve+uDwnMR0aj7ijiH9ECH6ZwuaOv3tXE9VMQvVkXo/u7SBaOp1Mi4
REX8cFVqbHmVLvjslfqVlKaIn8pvOngzThcqSxXasvMVcWv9BkktdV0wbdh/
u+6jIl4VmpoiH34UnC7+Ihu0KOLz7lsWJy4dhWscb1daWhVxD72vJ6KtjkLa
yYPnv3Qp4qHrJx4a7zkKk904eXhEEX9z/0fjZLcObFxjWHGaUMT1Rd9Xf6zW
Ae4ddS+mphXx9/qB6h8KdEDtnL7Q0pIivvzFUHkmTAd06dlbr/xSxJ1PT4TL
euqA9bPmiPV1RVzn8e1fPqd1wE03+lDwX0U8Ur3QvfuoDlyfOLG8taWIxz35
3WqiogP/AznEggU=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-8, 12}, {0., 0.22364354921103707`}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.562417407831531*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{960, 1068},
WindowMargins->{{68, Automatic}, {Automatic, 10}},
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
Magnification->1.5,
FrontEndVersion->"8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (November 6, \
2010)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 96, 1, 100, "Section"],
Cell[678, 25, 128, 2, 40, "Input"],
Cell[CellGroupData[{
Cell[831, 31, 843, 24, 191, "Input"],
Cell[1677, 57, 616, 11, 64, "Output"]
}, Open  ]],
Cell[2308, 71, 1073, 29, 157, "Input"],
Cell[3384, 102, 964, 26, 111, "Input"],
Cell[4351, 130, 2092, 58, 249, "Input"],
Cell[6446, 190, 1547, 39, 213, "Input"],
Cell[7996, 231, 411, 13, 147, "Input"],
Cell[8410, 246, 954, 23, 203, "Input"],
Cell[9367, 271, 404, 11, 88, "Input"],
Cell[9774, 284, 1126, 28, 157, "Input"],
Cell[10903, 314, 1373, 35, 157, "Input"],
Cell[12279, 351, 2167, 58, 227, "Input"],
Cell[14449, 411, 618, 17, 111, "Input"],
Cell[15070, 430, 2488, 68, 405, "Input"],
Cell[17561, 500, 1513, 39, 424, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19111, 544, 100, 1, 100, "Section"],
Cell[19214, 547, 380, 11, 40, "Input"],
Cell[CellGroupData[{
Cell[19619, 562, 635, 16, 87, "Input"],
Cell[20257, 580, 40776, 882, 357, 24296, 610, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[61082, 1468, 75, 1, 53, "Section"],
Cell[CellGroupData[{
Cell[61182, 1473, 99, 1, 36, "Subsubsection"],
Cell[61284, 1476, 5542, 128, 801, "Input"],
Cell[66829, 1606, 3029, 81, 433, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[69895, 1692, 95, 1, 36, "Subsubsection"],
Cell[CellGroupData[{
Cell[70015, 1697, 1324, 29, 110, "Input"],
Cell[71342, 1728, 526, 10, 56, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[71905, 1743, 3184, 93, 410, "Input"],
Cell[75092, 1838, 934, 15, 56, "Output"],
Cell[76029, 1855, 890, 13, 56, "Output"]
}, Open  ]],
Cell[76934, 1871, 114, 2, 40, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[77085, 1878, 205, 3, 36, "Subsubsection"],
Cell[CellGroupData[{
Cell[77315, 1885, 257, 6, 30, "Print"],
Cell[77575, 1893, 1515, 36, 238, "Print"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[79139, 1935, 100, 1, 25, "Subsubsection"],
Cell[CellGroupData[{
Cell[79264, 1940, 186, 5, 30, "Print"],
Cell[79453, 1947, 1443, 35, 238, "Print"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[80945, 1988, 154, 2, 25, "Subsubsection"],
Cell[CellGroupData[{
Cell[81124, 1994, 186, 5, 30, "Print"],
Cell[81313, 2001, 15327, 334, 3688, "Print"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[96689, 2341, 105, 1, 25, "Subsubsection"],
Cell[CellGroupData[{
Cell[96819, 2346, 186, 5, 30, "Print"],
Cell[97008, 2353, 15327, 334, 3688, "Print"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[112384, 2693, 154, 2, 25, "Subsubsection"],
Cell[CellGroupData[{
Cell[112563, 2699, 186, 5, 30, "Print"],
Cell[112752, 2706, 11416, 251, 2722, "Print"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[124217, 2963, 105, 1, 25, "Subsubsection"],
Cell[CellGroupData[{
Cell[124347, 2968, 186, 5, 30, "Print"],
Cell[124536, 2975, 11416, 251, 2722, "Print"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[136013, 3233, 100, 1, 100, "Section"],
Cell[CellGroupData[{
Cell[136138, 3238, 1587, 43, 205, "Input"],
Cell[137728, 3283, 358, 5, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[138123, 3293, 829, 20, 156, "Input"],
Cell[138955, 3315, 375, 5, 40, "Output"],
Cell[139333, 3322, 542, 9, 40, "Output"],
Cell[139878, 3333, 22510, 682, 354, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[162425, 4020, 116, 1, 51, "Subsection"],
Cell[CellGroupData[{
Cell[162566, 4025, 1178, 35, 156, "Input"],
Cell[163747, 4062, 1191, 24, 86, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[164975, 4091, 669, 14, 110, "Input"],
Cell[165647, 4107, 465, 9, 40, "Output"],
Cell[166115, 4118, 22545, 632, 357, "Output"],
Cell[188663, 4752, 26548, 640, 395, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[215260, 5398, 99, 1, 37, "Subsection"],
Cell[215362, 5401, 873, 21, 526, "Input"],
Cell[CellGroupData[{
Cell[216260, 5426, 198, 4, 135, "Input"],
Cell[216461, 5432, 268, 6, 135, "Output"]
}, Open  ]],
Cell[216744, 5441, 1109, 28, 370, "Input"],
Cell[CellGroupData[{
Cell[217878, 5473, 428, 10, 370, "Input"],
Cell[218309, 5485, 291, 6, 135, "Output"],
Cell[218603, 5493, 23776, 671, 1203, "Output"],
Cell[242382, 6166, 26375, 637, 1332, "Output"]
}, Open  ]]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[268818, 6810, 110, 1, 100, "Section"],
Cell[CellGroupData[{
Cell[268953, 6815, 1778, 47, 179, "Input"],
Cell[270734, 6864, 12940, 218, 361, "Output"],
Cell[283677, 7084, 13026, 220, 361, "Output"],
Cell[296706, 7306, 313, 7, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[297056, 7318, 680, 17, 64, "Input"],
Cell[297739, 7337, 1736, 36, 362, "Output"],
Cell[299478, 7375, 210, 3, 40, "Output"]
}, Open  ]],
Cell[299703, 7381, 119, 2, 40, "Input"],
Cell[CellGroupData[{
Cell[299847, 7387, 634, 16, 40, "Input"],
Cell[300484, 7405, 15932, 267, 370, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[316453, 7677, 616, 13, 110, "Input"],
Cell[317072, 7692, 186, 2, 40, "Output"],
Cell[317261, 7696, 204, 3, 40, "Output"],
Cell[317468, 7701, 186, 2, 40, "Output"],
Cell[317657, 7705, 186, 2, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[317880, 7712, 1940, 51, 372, "Input"],
Cell[319823, 7765, 457, 6, 40, "Output"],
Cell[320283, 7773, 457, 6, 40, "Output"],
Cell[CellGroupData[{
Cell[320765, 7783, 166, 2, 30, "Print"],
Cell[320934, 7787, 161, 2, 30, "Print"],
Cell[321098, 7791, 161, 2, 30, "Print"]
}, Open  ]],
Cell[321274, 7796, 441, 6, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[321752, 7807, 812, 21, 133, "Input"],
Cell[322567, 7830, 312, 4, 40, "Output"],
Cell[322882, 7836, 413, 8, 40, "Output"],
Cell[323298, 7846, 311, 4, 40, "Output"],
Cell[323612, 7852, 411, 8, 40, "Output"],
Cell[324026, 7862, 310, 4, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[324373, 7871, 257, 7, 40, "Input"],
Cell[324633, 7880, 12498, 212, 369, 2049, 39, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[337168, 8097, 456, 11, 133, "Input"],
Cell[337627, 8110, 124, 2, 40, "Output"],
Cell[337754, 8114, 120, 2, 40, "Output"],
Cell[337877, 8118, 122, 2, 40, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[338048, 8126, 102, 1, 53, "Section"],
Cell[CellGroupData[{
Cell[338175, 8131, 99, 1, 51, "Subsection"],
Cell[338277, 8134, 418, 11, 87, "Input"],
Cell[338698, 8147, 548, 14, 88, "Input"],
Cell[339249, 8163, 822, 24, 172, "Input"],
Cell[340074, 8189, 1033, 24, 111, "Input"],
Cell[341110, 8215, 650, 17, 88, "Input"],
Cell[341763, 8234, 3225, 79, 295, "Input"],
Cell[344991, 8315, 742, 20, 134, "Input"],
Cell[345736, 8337, 1175, 32, 272, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[346948, 8374, 92, 1, 51, "Subsection"],
Cell[CellGroupData[{
Cell[347065, 8379, 5038, 113, 625, "Input"],
Cell[352106, 8494, 26015, 660, 379, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[378158, 9159, 1180, 25, 87, "Input"],
Cell[379341, 9186, 155, 2, 40, "Output"]
}, Open  ]],
Cell[379511, 9191, 334, 9, 42, "Input"],
Cell[379848, 9202, 92, 1, 40, "Input"],
Cell[CellGroupData[{
Cell[379965, 9207, 124, 2, 40, "Input"],
Cell[380092, 9211, 96, 1, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[380225, 9217, 98, 1, 36, "Subsubsection"],
Cell[380326, 9220, 3606, 80, 481, "Input"],
Cell[383935, 9302, 756, 13, 40, "Input"],
Cell[CellGroupData[{
Cell[384716, 9319, 1507, 45, 157, "Input"],
Cell[386226, 9366, 684, 19, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[386947, 9390, 2963, 91, 157, "Input"],
Cell[389913, 9483, 89, 1, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[390039, 9489, 3450, 106, 157, "Input"],
Cell[393492, 9597, 143, 2, 40, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[393684, 9605, 169, 2, 25, "Subsubsection"],
Cell[393856, 9609, 1550, 37, 156, "Input"],
Cell[395409, 9648, 959, 27, 110, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[396405, 9680, 104, 1, 25, "Subsubsection"],
Cell[CellGroupData[{
Cell[396534, 9685, 1818, 52, 295, "Input"],
Cell[398355, 9739, 1528, 31, 102, "Output"],
Cell[CellGroupData[{
Cell[399908, 9774, 212, 5, 30, "Print"],
Cell[400123, 9781, 904, 22, 100, "Print"]
}, Open  ]],
Cell[401042, 9806, 742, 12, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[401821, 9823, 524, 12, 110, "Input"],
Cell[402348, 9837, 359, 7, 40, "Output"],
Cell[402710, 9846, 21637, 609, 357, "Output"],
Cell[424350, 10457, 26441, 638, 393, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[450828, 11100, 478, 13, 72, "Input"],
Cell[451309, 11115, 16451, 276, 369, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
